home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-09-24 | 13.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 1b f4 20 66 6f | 72 20 74 68 65 20 53 63 |..... fo|r the Sc|
|00000020| 72 61 62 62 6c 65 20 47 | 61 6d 65 0d 00 1e 12 f4 |rabble G|ame.....|
|00000030| 20 42 79 20 50 68 69 6c | 20 4c 6f 76 65 0d 00 28 | By Phil| Love..(|
|00000040| 1f f4 20 28 63 29 20 50 | 68 69 6c 20 4c 6f 76 65 |.. (c) P|hil Love|
|00000050| 20 41 75 67 75 73 74 20 | 31 39 39 31 0d 00 32 05 | August |1991..2.|
|00000060| 3a 0d 00 3c 09 f2 69 6e | 69 74 0d 00 46 12 ee 20 |:..<..in|it..F.. |
|00000070| 85 20 f2 77 69 6d 70 65 | 72 72 6f 72 0d 00 50 05 |. .wimpe|rror..P.|
|00000080| f5 0d 00 5a 20 c8 99 20 | 22 57 69 6d 70 5f 50 6f |...Z .. |"Wimp_Po|
|00000090| 6c 6c 22 2c 2c 62 25 20 | b8 20 72 65 61 73 6f 6e |ll",,b% |. reason|
|000000a0| 25 0d 00 64 10 c8 8e 20 | 72 65 61 73 6f 6e 25 20 |%..d... |reason% |
|000000b0| ca 0d 00 6e 26 c9 20 32 | 20 20 20 20 20 3a 20 c8 |...n&. 2| : .|
|000000c0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|000000d0| 6f 77 22 2c 2c 62 25 0d | 00 78 27 c9 20 33 20 20 |ow",,b%.|.x'. 3 |
|000000e0| 20 20 20 3a 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c | : .. |"Wimp_Cl|
|000000f0| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 62 25 0d 00 |oseWindo|w",,b%..|
|00000100| 82 2f c9 20 36 20 20 20 | 20 20 3a 20 f2 6d 6f 75 |./. 6 | : .mou|
|00000110| 73 65 28 21 62 25 2c 62 | 25 21 34 2c 62 25 21 38 |se(!b%,b|%!4,b%!8|
|00000120| 2c 62 25 21 31 32 2c 62 | 25 21 31 36 29 0d 00 8c |,b%!12,b|%!16)...|
|00000130| 1d c9 20 39 20 20 20 20 | 20 3a 20 f2 6d 65 6e 75 |.. 9 | : .menu|
|00000140| 73 65 6c 65 63 74 28 62 | 25 29 0d 00 96 1a c9 20 |select(b|%)..... |
|00000150| 31 37 2c 31 38 20 3a 20 | f2 6d 65 73 73 61 67 65 |17,18 : |.message|
|00000160| 28 62 25 29 0d 00 a0 05 | cb 0d 00 aa 0a fd 20 71 |(b%)....|...... q|
|00000170| 75 69 74 0d 00 b4 17 c8 | 99 20 22 57 69 6d 70 5f |uit.....|. "Wimp_|
|00000180| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 00 be 05 e0 0d |CloseDow|n"......|
|00000190| 00 c8 05 3a 0d 00 d2 33 | dd 20 f2 6d 6f 75 73 65 |...:...3|. .mouse|
|000001a0| 28 6d 6f 75 73 65 78 25 | 2c 6d 6f 75 73 65 79 25 |(mousex%|,mousey%|
|000001b0| 2c 6d 6f 75 73 65 62 25 | 2c 68 61 6e 64 6c 65 25 |,mouseb%|,handle%|
|000001c0| 2c 69 63 6f 6e 25 29 0d | 00 dc 17 e7 20 28 6d 6f |,icon%).|.... (mo|
|000001d0| 75 73 65 62 25 20 80 20 | 35 29 3e 30 20 8c 0d 00 |useb% . |5)>0 ...|
|000001e0| e6 10 c8 8e 20 68 61 6e | 64 6c 65 25 20 ca 0d 00 |.... han|dle% ...|
|000001f0| f0 1b c9 2d 32 3a f2 6f | 70 65 6e 77 69 6e 28 6d |...-2:.o|penwin(m|
|00000200| 61 69 6e 68 61 6e 64 25 | 29 0d 00 fa 0f c9 20 6d |ainhand%|)..... m|
|00000210| 61 69 6e 68 61 6e 64 25 | 0d 01 04 2c e7 20 69 63 |ainhand%|...,. ic|
|00000220| 6f 6e 25 3e 3d 62 61 73 | 65 25 20 80 20 70 6c 61 |on%>=bas|e% . pla|
|00000230| 79 69 6e 67 25 20 80 20 | ac 65 6e 74 65 72 69 6e |ying% . |.enterin|
|00000240| 67 25 20 8c 0d 01 0e 2a | e7 20 73 65 6c 65 63 74 |g% ....*|. select|
|00000250| 65 64 25 3c 3e 2d 31 20 | 8c 20 f2 64 65 73 65 6c |ed%<>-1 |. .desel|
|00000260| 65 63 74 28 73 65 6c 65 | 63 74 65 64 25 29 0d 01 |ect(sele|cted%)..|
|00000270| 18 12 f2 73 65 6c 65 63 | 74 28 69 63 6f 6e 25 29 |...selec|t(icon%)|
|00000280| 0d 01 22 13 73 65 6c 65 | 63 74 65 64 25 3d 69 63 |..".sele|cted%=ic|
|00000290| 6f 6e 25 0d 01 2c 21 c8 | 99 20 22 57 69 6d 70 5f |on%..,!.|. "Wimp_|
|000002a0| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|000002b0| 22 2c 2d 31 0d 01 36 05 | cc 0d 01 40 0e c8 8e 20 |",-1..6.|...@... |
|000002c0| 69 63 6f 6e 25 20 ca 0d | 01 4a 37 c9 20 31 3a e7 |icon% ..|.J7. 1:.|
|000002d0| 20 ac 20 65 6e 74 65 72 | 69 6e 67 25 20 61 63 72 | . enter|ing% acr|
|000002e0| 6f 73 73 25 3d b9 3a f2 | 73 65 6c 65 63 74 28 31 |oss%=.:.|select(1|
|000002f0| 29 3a f2 64 65 73 65 6c | 65 63 74 28 32 29 0d 01 |):.desel|ect(2)..|
|00000300| 54 37 c9 20 32 3a e7 20 | ac 20 65 6e 74 65 72 69 |T7. 2:. |. enteri|
|00000310| 6e 67 25 20 61 63 72 6f | 73 73 25 3d a3 3a f2 73 |ng% acro|ss%=.:.s|
|00000320| 65 6c 65 63 74 28 32 29 | 3a f2 64 65 73 65 6c 65 |elect(2)|:.desele|
|00000330| 63 74 28 31 29 0d 01 5e | 68 c9 20 31 33 3a 70 6c |ct(1)..^|h. 13:pl|
|00000340| 61 79 65 72 73 25 2b 3d | 31 3a e7 20 70 6c 61 79 |ayers%+=|1:. play|
|00000350| 65 72 73 25 3e 34 20 70 | 6c 61 79 65 72 73 25 3d |ers%>4 p|layers%=|
|00000360| 34 20 8b 20 f2 73 68 61 | 64 65 28 70 6c 61 79 65 |4 . .sha|de(playe|
|00000370| 72 73 25 2b 36 29 3a f2 | 73 68 61 64 65 28 70 6c |rs%+6):.|shade(pl|
|00000380| 61 79 65 72 73 25 2b 32 | 29 3a f2 73 68 61 64 65 |ayers%+2|):.shade|
|00000390| 28 70 6c 61 79 65 72 73 | 25 2b 31 34 29 0d 01 68 |(players|%+14)..h|
|000003a0| 36 24 a4 74 65 78 74 61 | 64 64 72 28 6d 61 69 6e |6$.texta|ddr(main|
|000003b0| 68 61 6e 64 25 2c 31 32 | 29 3d c3 70 6c 61 79 65 |hand%,12|)=.playe|
|000003c0| 72 73 25 3a f2 72 65 64 | 72 61 77 69 63 6f 6e 28 |rs%:.red|rawicon(|
|000003d0| 31 32 29 0d 01 72 68 c9 | 20 31 34 3a 70 6c 61 79 |12)..rh.| 14:play|
|000003e0| 65 72 73 25 2d 3d 31 3a | e7 20 70 6c 61 79 65 72 |ers%-=1:|. player|
|000003f0| 73 25 3c 32 20 70 6c 61 | 79 65 72 73 25 3d 32 20 |s%<2 pla|yers%=2 |
|00000400| 8b 20 f2 73 68 61 64 65 | 28 70 6c 61 79 65 72 73 |. .shade|(players|
|00000410| 25 2b 37 29 3a f2 73 68 | 61 64 65 28 70 6c 61 79 |%+7):.sh|ade(play|
|00000420| 65 72 73 25 2b 33 29 3a | f2 73 68 61 64 65 28 70 |ers%+3):|.shade(p|
|00000430| 6c 61 79 65 72 73 25 2b | 31 35 29 0d 01 7c 36 24 |layers%+|15)..|6$|
|00000440| a4 74 65 78 74 61 64 64 | 72 28 6d 61 69 6e 68 61 |.textadd|r(mainha|
|00000450| 6e 64 25 2c 31 32 29 3d | c3 70 6c 61 79 65 72 73 |nd%,12)=|.players|
|00000460| 25 3a f2 72 65 64 72 61 | 77 69 63 6f 6e 28 31 32 |%:.redra|wicon(12|
|00000470| 29 0d 01 86 15 c9 20 32 | 38 3a f2 73 68 6f 77 68 |)..... 2|8:.showh|
|00000480| 69 64 65 28 31 29 0d 01 | 90 15 c9 20 33 36 3a f2 |ide(1)..|... 36:.|
|00000490| 73 68 6f 77 68 69 64 65 | 28 32 29 0d 01 9a 15 c9 |showhide|(2).....|
|000004a0| 20 34 34 3a f2 73 68 6f | 77 68 69 64 65 28 33 29 | 44:.sho|whide(3)|
|000004b0| 0d 01 a4 15 c9 20 35 32 | 3a f2 73 68 6f 77 68 69 |..... 52|:.showhi|
|000004c0| 64 65 28 34 29 0d 01 ae | 52 c9 20 32 31 2c 32 32 |de(4)...|R. 21,22|
|000004d0| 2c 32 33 2c 32 34 2c 32 | 35 2c 32 36 2c 32 37 3a |,23,24,2|5,26,27:|
|000004e0| e7 20 74 6f 70 6c 61 79 | 25 3d 31 20 8c 20 f2 70 |. toplay|%=1 . .p|
|000004f0| 6c 61 63 65 28 24 a4 74 | 65 78 74 61 64 64 72 28 |lace($.t|extaddr(|
|00000500| 6d 61 69 6e 68 61 6e 64 | 25 2c 69 63 6f 6e 25 29 |mainhand|%,icon%)|
|00000510| 2c 69 63 6f 6e 25 29 0d | 01 b8 52 c9 20 32 39 2c |,icon%).|..R. 29,|
|00000520| 33 30 2c 33 31 2c 33 32 | 2c 33 33 2c 33 34 2c 33 |30,31,32|,33,34,3|
|00000530| 35 3a e7 20 74 6f 70 6c | 61 79 25 3d 32 20 8c 20 |5:. topl|ay%=2 . |
|00000540| f2 70 6c 61 63 65 28 24 | a4 74 65 78 74 61 64 64 |.place($|.textadd|
|00000550| 72 28 6d 61 69 6e 68 61 | 6e 64 25 2c 69 63 6f 6e |r(mainha|nd%,icon|
|00000560| 25 29 2c 69 63 6f 6e 25 | 29 0d 01 c2 52 c9 20 33 |%),icon%|)...R. 3|
|00000570| 37 2c 33 38 2c 33 39 2c | 34 30 2c 34 31 2c 34 32 |7,38,39,|40,41,42|
|00000580| 2c 34 33 3a e7 20 74 6f | 70 6c 61 79 25 3d 33 20 |,43:. to|play%=3 |
|00000590| 8c 20 f2 70 6c 61 63 65 | 28 24 a4 74 65 78 74 61 |. .place|($.texta|
|000005a0| 64 64 72 28 6d 61 69 6e | 68 61 6e 64 25 2c 69 63 |ddr(main|hand%,ic|
|000005b0| 6f 6e 25 29 2c 69 63 6f | 6e 25 29 0d 01 cc 52 c9 |on%),ico|n%)...R.|
|000005c0| 20 34 35 2c 34 36 2c 34 | 37 2c 34 38 2c 34 39 2c | 45,46,4|7,48,49,|
|000005d0| 35 30 2c 35 31 3a e7 20 | 74 6f 70 6c 61 79 25 3d |50,51:. |toplay%=|
|000005e0| 34 20 8c 20 f2 70 6c 61 | 63 65 28 24 a4 74 65 78 |4 . .pla|ce($.tex|
|000005f0| 74 61 64 64 72 28 6d 61 | 69 6e 68 61 6e 64 25 2c |taddr(ma|inhand%,|
|00000600| 69 63 6f 6e 25 29 2c 69 | 63 6f 6e 25 29 0d 01 d6 |icon%),i|con%)...|
|00000610| 17 c9 20 36 33 3a f2 64 | 6f 6e 65 28 61 63 72 6f |.. 63:.d|one(acro|
|00000620| 73 73 25 29 0d 01 e0 1e | c9 20 36 34 3a e3 20 63 |ss%)....|. 64:. c|
|00000630| 6c 25 3d 31 20 b8 20 37 | 3a f2 64 65 6c 65 74 65 |l%=1 . 7|:.delete|
|00000640| 3a ed 0d 01 ea 10 c9 20 | 36 35 3a f2 64 65 6c 65 |:...... |65:.dele|
|00000650| 74 65 0d 01 f4 05 cb 0d | 01 fe 05 cd 0d 02 08 05 |te......|........|
|00000660| cb 0d 02 12 05 cd 0d 02 | 1c 17 e7 20 28 6d 6f 75 |........|... (mou|
|00000670| 73 65 62 25 20 80 20 32 | 29 3e 30 20 8c 0d 02 26 |seb% . 2|)>0 ...&|
|00000680| 49 e7 20 68 61 6e 64 6c | 65 25 3d 2d 32 20 f2 6f |I. handl|e%=-2 .o|
|00000690| 70 65 6e 6d 65 6e 75 28 | b9 29 3a 63 75 72 6d 65 |penmenu(|.):curme|
|000006a0| 6e 75 25 3d 69 62 6d 25 | 20 8b 20 f2 6f 70 65 6e |nu%=ibm%| . .open|
|000006b0| 6d 65 6e 75 28 a3 29 3a | 63 75 72 6d 65 6e 75 25 |menu(.):|curmenu%|
|000006c0| 3d 6d 65 6e 75 25 0d 02 | 30 05 cd 0d 02 3a 05 e1 |=menu%..|0....:..|
|000006d0| 0d 02 44 05 3a 0d 02 4e | 15 dd 20 f2 6d 65 6e 75 |..D.:..N|.. .menu|
|000006e0| 73 65 6c 65 63 74 28 62 | 25 29 0d 02 58 0b ea 20 |select(b|%)..X.. |
|000006f0| 72 65 64 6f 25 0d 02 62 | 21 c8 99 20 22 57 69 6d |redo%..b|!.. "Wim|
|00000700| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|00000710| 22 2c 2c 62 32 25 0d 02 | 6c 1b 72 65 64 6f 25 3d |",,b2%..|l.redo%=|
|00000720| 28 28 28 62 32 25 21 38 | 29 20 80 20 31 29 3e 30 |(((b2%!8|) . 1)>0|
|00000730| 29 0d 02 76 11 c8 8e 20 | 63 75 72 6d 65 6e 75 25 |)..v... |curmenu%|
|00000740| 20 ca 0d 02 80 21 c9 20 | 69 62 6d 25 20 20 3a 20 | ....!. |ibm% : |
|00000750| f2 64 65 63 6f 64 65 69 | 62 61 72 6d 65 6e 75 28 |.decodei|barmenu(|
|00000760| 62 25 29 0d 02 8a 21 c9 | 20 6d 65 6e 75 25 20 3a |b%)...!.| menu% :|
|00000770| 20 f2 64 65 63 6f 64 65 | 6d 61 69 6e 6d 65 6e 75 | .decode|mainmenu|
|00000780| 28 62 25 29 0d 02 94 05 | cb 0d 02 9e 33 e7 20 72 |(b%)....|....3. r|
|00000790| 65 64 6f 25 20 80 20 ac | 20 71 75 69 74 20 c8 99 |edo% . .| quit ..|
|000007a0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|000007b0| 75 22 2c 2c 63 75 72 6d | 65 6e 75 25 0d 02 a8 05 |u",,curm|enu%....|
|000007c0| e1 0d 02 b2 05 3a 0d 02 | bc 19 dd 20 f2 64 65 63 |.....:..|... .dec|
|000007d0| 6f 64 65 6d 61 69 6e 6d | 65 6e 75 28 62 25 29 0d |odemainm|enu(b%).|
|000007e0| 02 c6 0d ea 20 72 65 64 | 72 61 77 25 0d 02 d0 0c |.... red|raw%....|
|000007f0| c8 8e 20 21 62 25 20 ca | 0d 02 da 07 c9 20 30 0d |.. !b% .|..... 0.|
|00000800| 02 e4 1e e3 20 63 6c 65 | 61 72 25 3d 62 61 73 65 |.... cle|ar%=base|
|00000810| 25 20 b8 20 62 61 73 65 | 25 2b 32 32 34 0d 02 ee |% . base|%+224...|
|00000820| 22 61 25 3d a4 74 65 78 | 74 61 64 64 72 28 6d 61 |"a%=.tex|taddr(ma|
|00000830| 69 6e 68 61 6e 64 25 2c | 63 6c 65 61 72 25 29 0d |inhand%,|clear%).|
|00000840| 02 f8 12 e7 20 24 61 25 | 3c 3e 22 65 6d 70 22 20 |.... $a%|<>"emp" |
|00000850| 8c 0d 03 02 0d 24 61 25 | 3d 22 65 6d 70 22 0d 03 |.....$a%|="emp"..|
|00000860| 0c 3e 21 62 32 25 3d 6d | 61 69 6e 68 61 6e 64 25 |.>!b2%=m|ainhand%|
|00000870| 3a 62 32 25 21 34 3d 63 | 6c 65 61 72 25 3a 62 32 |:b2%!4=c|lear%:b2|
|00000880| 25 21 38 3d 26 41 30 31 | 33 31 33 41 3a 62 32 25 |%!8=&A01|313A:b2%|
|00000890| 21 31 32 3d 26 46 46 46 | 46 46 46 46 0d 03 16 1f |!12=&FFF|FFFF....|
|000008a0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|000008b0| 53 74 61 74 65 22 2c 2c | 62 32 25 0d 03 20 05 cd |State",,|b2%.. ..|
|000008c0| 0d 03 2a 05 ed 0d 03 34 | 0d 67 72 69 64 25 28 29 |..*....4|.grid%()|
|000008d0| 3d 30 0d 03 3e 41 62 61 | 67 25 28 29 3d 39 2c 32 |=0..>Aba|g%()=9,2|
|000008e0| 2c 32 2c 34 2c 31 32 2c | 32 2c 33 2c 32 2c 39 2c |,2,4,12,|2,3,2,9,|
|000008f0| 31 2c 31 2c 34 2c 32 2c | 36 2c 38 2c 32 2c 31 2c |1,1,4,2,|6,8,2,1,|
|00000900| 36 2c 34 2c 36 2c 34 2c | 32 2c 32 2c 31 2c 32 2c |6,4,6,4,|2,2,1,2,|
|00000910| 31 2c 32 0d 03 48 2d f2 | 64 65 73 65 6c 65 63 74 |1,2..H-.|deselect|
|00000920| 28 74 6f 70 6c 61 79 25 | 2b 32 29 3a 74 6f 70 6c |(toplay%|+2):topl|
|00000930| 61 79 25 3d 31 3a f2 73 | 65 6c 65 63 74 28 33 29 |ay%=1:.s|elect(3)|
|00000940| 0d 03 52 18 e3 20 67 69 | 76 65 25 3d 31 20 b8 20 |..R.. gi|ve%=1 . |
|00000950| 70 6c 61 79 65 72 73 25 | 0d 03 5c 11 e3 20 70 69 |players%|..\.. pi|
|00000960| 65 63 25 3d 31 20 b8 20 | 37 0d 03 66 1f 70 6c 65 |ec%=1 . |7..f.ple|
|00000970| 74 73 25 28 67 69 76 65 | 25 2c 70 69 65 63 25 29 |ts%(give|%,piec%)|
|00000980| 3d a4 6c 65 74 74 65 72 | 0d 03 70 05 ed 0d 03 7a |=.letter|..p....z|
|00000990| 23 e7 20 ac 20 70 6c 61 | 79 69 6e 67 25 20 f2 73 |#. . pla|ying% .s|
|000009a0| 68 61 64 65 28 67 69 76 | 65 25 2a 38 2b 32 30 29 |hade(giv|e%*8+20)|
|000009b0| 0d 03 84 28 e7 20 70 6c | 65 74 73 25 28 67 69 76 |...(. pl|ets%(giv|
|000009c0| 65 25 2c 30 29 20 8c 20 | f2 73 68 6f 77 68 69 64 |e%,0) . |.showhid|
|000009d0| 65 28 67 69 76 65 25 29 | 0d 03 8e 05 ed 0d 03 98 |e(give%)|........|
|000009e0| 26 e7 20 ac 20 70 6c 61 | 79 69 6e 67 25 20 f2 73 |&. . pla|ying% .s|
|000009f0| 68 61 64 65 28 31 33 29 | 3a f2 73 68 61 64 65 28 |hade(13)|:.shade(|
|00000a00| 31 34 29 0d 03 a2 81 70 | 73 63 72 25 28 29 3d 30 |14)....p|scr%()=0|
|00000a10| 3a 24 a4 74 65 78 74 61 | 64 64 72 28 6d 61 69 6e |:$.texta|ddr(main|
|00000a20| 68 61 6e 64 25 2c 31 35 | 29 3d 22 30 22 3a 24 a4 |hand%,15|)="0":$.|
|00000a30| 74 65 78 74 61 64 64 72 | 28 6d 61 69 6e 68 61 6e |textaddr|(mainhan|
|00000a40| 64 25 2c 31 36 29 3d 22 | 30 22 3a 24 a4 74 65 78 |d%,16)="|0":$.tex|
|00000a50| 74 61 64 64 72 28 6d 61 | 69 6e 68 61 6e 64 25 2c |taddr(ma|inhand%,|
|00000a60| 31 37 29 3d 22 30 22 3a | 24 a4 74 65 78 74 61 64 |17)="0":|$.textad|
|00000a70| 64 72 28 6d 61 69 6e 68 | 61 6e 64 25 2c 31 38 29 |dr(mainh|and%,18)|
|00000a80| 3d 22 30 22 0d 03 ac 43 | f2 72 65 64 72 61 77 69 |="0"...C|.redrawi|
|00000a90| 63 6f 6e 28 31 35 29 3a | f2 72 65 64 72 61 77 69 |con(15):|.redrawi|
|00000aa0| 63 6f 6e 28 31 36 29 3a | f2 72 65 64 72 61 77 69 |con(16):|.redrawi|
|00000ab0| 63 6f 6e 28 31 37 29 3a | f2 72 65 64 72 61 77 69 |con(17):|.redrawi|
|00000ac0| 63 6f 6e 28 31 38 29 0d | 03 b6 2b 70 6c 61 79 69 |con(18).|..+playi|
|00000ad0| 6e 67 25 3d b9 3a 66 69 | 72 73 74 67 6f 25 3d b9 |ng%=.:fi|rstgo%=.|
|00000ae0| 3a 6d 65 6e 75 25 21 36 | 30 3d 26 37 30 30 30 30 |:menu%!6|0=&70000|
|00000af0| 32 31 0d 03 c0 07 c9 20 | 31 0d 03 ca 0e 70 6c 61 |21..... |1....pla|
|00000b00| 79 69 6e 67 25 3d a3 0d | 03 d4 19 f2 73 68 61 64 |ying%=..|....shad|
|00000b10| 65 28 31 33 29 3a f2 73 | 68 61 64 65 28 31 34 29 |e(13):.s|hade(14)|
|00000b20| 0d 03 de 18 e3 20 74 61 | 6b 65 25 3d 31 20 b8 20 |..... ta|ke%=1 . |
|00000b30| 70 6c 61 79 65 72 73 25 | 0d 03 e8 11 e3 20 70 69 |players%|..... pi|
|00000b40| 65 63 25 3d 31 20 b8 20 | 37 0d 03 f2 1c c8 8e 20 |ec%=1 . |7...... |
|00000b50| 70 6c 65 74 73 25 28 74 | 61 6b 65 25 2c 70 69 65 |plets%(t|ake%,pie|
|00000b60| 63 25 29 20 ca 0d 03 fc | 07 c9 20 30 0d 04 06 1a |c%) ....|.. 0....|
|00000b70| c9 20 31 36 30 3a 70 73 | 63 72 25 28 74 61 6b 65 |. 160:ps|cr%(take|
|00000b80| 25 29 2d 3d 31 30 0d 04 | 10 05 7f 0d 04 1a 30 70 |%)-=10..|......0p|
|00000b90| 73 63 72 25 28 74 61 6b | 65 25 29 2d 3d 73 63 6f |scr%(tak|e%)-=sco|
|00000ba0| 72 65 25 28 70 6c 65 74 | 73 25 28 74 61 6b 65 25 |re%(plet|s%(take%|
|00000bb0| 2c 70 69 65 63 25 29 2d | 39 37 29 0d 04 24 05 cb |,piec%)-|97)..$..|
|00000bc0| 0d 04 2e 05 ed 0d 04 38 | 28 e7 20 70 6c 65 74 73 |.......8|(. plets|
|00000bd0| 25 28 74 61 6b 65 25 2c | 30 29 20 8c 20 f2 73 68 |%(take%,|0) . .sh|
|00000be0| 6f 77 68 69 64 65 28 74 | 61 6b 65 25 29 0d 04 42 |owhide(t|ake%)..B|
|00000bf0| 46 24 a4 74 65 78 74 61 | 64 64 72 28 6d 61 69 6e |F$.texta|ddr(main|
|00000c00| 68 61 6e 64 25 2c 31 34 | 2b 74 61 6b 65 25 29 3d |hand%,14|+take%)=|
|00000c10| c3 70 73 63 72 25 28 74 | 61 6b 65 25 29 3a f2 72 |.pscr%(t|ake%):.r|
|00000c20| 65 64 72 61 77 69 63 6f | 6e 28 31 34 2b 74 61 6b |edrawico|n(14+tak|
|00000c30| 65 25 29 0d 04 4c 16 f2 | 73 68 61 64 65 28 74 61 |e%)..L..|shade(ta|
|00000c40| 6b 65 25 2a 38 2b 32 30 | 29 0d 04 56 05 ed 0d 04 |ke%*8+20|)..V....|
|00000c50| 60 15 6d 65 6e 75 25 21 | 36 30 3d 26 37 34 30 30 |`.menu%!|60=&7400|
|00000c60| 30 32 31 0d 04 6a 07 c9 | 20 32 0d 04 74 0d 72 65 |021..j..| 2..t.re|
|00000c70| 64 72 61 77 25 3d a3 0d | 04 7e 0d c8 8e 20 62 25 |draw%=..|.~... b%|
|00000c80| 21 34 20 ca 0d 04 88 74 | c9 20 30 3a e7 20 73 70 |!4 ....t|. 0:. sp|
|00000c90| 72 6d 65 6e 25 21 32 38 | 3d 30 20 c8 99 20 22 4f |rmen%!28|=0 .. "O|
|00000ca0| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 31 30 2b 32 |S_Sprite|Op",10+2|
|00000cb0| 35 36 2c 74 73 70 72 25 | 2c 22 3c 53 63 72 61 62 |56,tspr%|,"<Scrab|
|00000cc0| 62 6c 65 24 44 69 72 3e | 2e 53 70 72 69 74 65 73 |ble$Dir>|.Sprites|
|00000cd0| 4e 22 3a 73 70 72 6d 65 | 6e 25 21 32 38 3d 31 3a |N":sprme|n%!28=1:|
|00000ce0| 73 70 72 6d 65 6e 25 21 | 35 32 3d 26 38 30 3a 72 |sprmen%!|52=&80:r|
|00000cf0| 65 64 72 61 77 25 3d b9 | 0d 04 92 74 c9 20 31 3a |edraw%=.|...t. 1:|
|00000d00| e7 20 73 70 72 6d 65 6e | 25 21 32 38 3d 31 20 c8 |. sprmen|%!28=1 .|
|00000d10| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000d20| 31 30 2b 32 35 36 2c 74 | 73 70 72 25 2c 22 3c 53 |10+256,t|spr%,"<S|
|00000d30| 63 72 61 62 62 6c 65 24 | 44 69 72 3e 2e 53 70 72 |crabble$|Dir>.Spr|
|00000d40| 69 74 65 73 4d 22 3a 73 | 70 72 6d 65 6e 25 21 32 |itesM":s|prmen%!2|
|00000d50| 38 3d 30 3a 73 70 72 6d | 65 6e 25 21 35 32 3d 26 |8=0:sprm|en%!52=&|
|00000d60| 38 31 3a 72 65 64 72 61 | 77 25 3d b9 0d 04 9c 05 |81:redra|w%=.....|
|00000d70| cb 0d 04 a6 4b e7 20 72 | 65 64 72 61 77 25 20 8c |....K. r|edraw% .|
|00000d80| 20 21 62 25 3d 6d 61 69 | 6e 68 61 6e 64 25 3a c8 | !b%=mai|nhand%:.|
|00000d90| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00000da0| 64 6f 77 22 2c 2c 62 25 | 3a f2 6f 70 65 6e 77 69 |dow",,b%|:.openwi|
|00000db0| 6e 28 6d 61 69 6e 68 61 | 6e 64 25 29 0d 04 b0 05 |n(mainha|nd%)....|
|00000dc0| cb 0d 04 ba 05 e1 0d 04 | c4 05 3a 0d 04 ce 19 dd |........|..:.....|
|00000dd0| 20 f2 64 65 63 6f 64 65 | 69 62 61 72 6d 65 6e 75 | .decode|ibarmenu|
|00000de0| 28 62 25 29 0d 04 d8 0c | c8 8e 20 21 62 25 20 ca |(b%)....|.. !b% .|
|00000df0| 0d 04 e2 0e c9 20 31 3a | 71 75 69 74 3d b9 0d 04 |..... 1:|quit=...|
|00000e00| ec 05 cb 0d 04 f6 05 e1 | 0d 05 00 05 3a 0d 05 0a |........|....:...|
|00000e10| 12 dd 20 f2 6d 65 73 73 | 61 67 65 28 62 25 29 0d |.. .mess|age(b%).|
|00000e20| 05 14 0e c8 8e 20 62 25 | 21 31 36 20 ca 0d 05 1e |..... b%|!16 ....|
|00000e30| 0f c9 20 30 3a 20 71 75 | 69 74 3d b9 0d 05 28 05 |.. 0: qu|it=...(.|
|00000e40| cb 0d 05 32 05 e1 0d 05 | 3c 05 3a 0d 05 46 15 dd |...2....|<.:..F..|
|00000e50| 20 f2 6f 70 65 6e 77 69 | 6e 28 68 61 6e 64 25 29 | .openwi|n(hand%)|
|00000e60| 0d 05 50 0e 21 62 32 25 | 3d 68 61 6e 64 25 0d 05 |..P.!b2%|=hand%..|
|00000e70| 5a 21 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |Z!.. "Wi|mp_GetWi|
|00000e80| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 32 25 0d |ndowStat|e",,b2%.|
|00000e90| 05 64 1d c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.d... "W|imp_Open|
|00000ea0| 57 69 6e 64 6f 77 22 2c | 2c 62 32 25 0d 05 6e 05 |Window",|,b2%..n.|
|00000eb0| e1 0d 05 78 05 3a 0d 05 | 82 1f dd 20 f2 63 68 61 |...x.:..|... .cha|
|00000ec0| 6e 67 65 6c 65 74 74 65 | 72 28 78 25 2c 79 25 2c |ngelette|r(x%,y%,|
|00000ed0| 6c 65 74 24 29 0d 05 8c | 2d 24 a4 74 65 78 74 61 |let$)...|-$.texta|
|00000ee0| 64 64 72 28 6d 61 69 6e | 68 61 6e 64 25 2c 62 61 |ddr(main|hand%,ba|
|00000ef0| 73 65 25 2b 78 25 2b 79 | 25 2a 31 35 29 3d 6c 65 |se%+x%+y|%*15)=le|
|00000f00| 74 24 0d 05 96 1f f2 72 | 65 64 72 61 77 69 63 6f |t$.....r|edrawico|
|00000f10| 6e 28 62 61 73 65 25 2b | 78 25 2b 79 25 2a 31 35 |n(base%+|x%+y%*15|
|00000f20| 29 0d 05 a0 05 e1 0d 05 | aa 05 3a 0d 05 b4 20 dd |).......|..:... .|
|00000f30| 20 f2 70 6f 73 69 74 69 | 6f 6e 28 69 63 6f 6e 25 | .positi|on(icon%|
|00000f40| 2c f8 20 78 25 2c f8 20 | 79 25 29 0d 05 be 19 78 |,. x%,. |y%)....x|
|00000f50| 25 3d 28 69 63 6f 6e 25 | 2d 62 61 73 65 25 29 20 |%=(icon%|-base%) |
|00000f60| 83 20 31 35 0d 05 c8 19 | 79 25 3d 28 69 63 6f 6e |. 15....|y%=(icon|
|00000f70| 25 2d 62 61 73 65 25 29 | 20 81 20 31 35 0d 05 d2 |%-base%)| . 15...|
|00000f80| 05 e1 0d 05 dc 05 3a 0d | 05 e6 26 dd 20 f2 6e 65 |......:.|..&. .ne|
|00000f90| 78 74 28 61 63 72 6f 73 | 73 25 2c 78 25 2c 79 25 |xt(acros|s%,x%,y%|
|00000fa0| 2c f8 20 73 65 6c 65 63 | 74 65 64 25 29 0d 05 f0 |,. selec|ted%)...|
|00000fb0| 0f e7 20 61 63 72 6f 73 | 73 25 20 8c 0d 05 fa 1e |.. acros|s% .....|
|00000fc0| c8 95 20 78 25 3c 31 35 | 20 80 20 67 72 69 64 25 |.. x%<15| . grid%|
|00000fd0| 28 78 25 2c 79 25 29 3c | 3e 30 0d 06 04 16 78 25 |(x%,y%)<|>0....x%|
|00000fe0| 2b 3d 31 3a 73 65 6c 65 | 63 74 65 64 25 2b 3d 31 |+=1:sele|cted%+=1|
|00000ff0| 0d 06 0e 05 ce 0d 06 18 | 2f e7 20 78 25 3d 31 35 |........|/. x%=15|
|00001000| 20 8c 20 73 65 6c 65 63 | 74 65 64 25 3d 2d 31 20 | . selec|ted%=-1 |
|00001010| 8b 20 f2 73 65 6c 65 63 | 74 28 73 65 6c 65 63 74 |. .selec|t(select|
|00001020| 65 64 25 29 0d 06 22 05 | cc 0d 06 2c 1e c8 95 20 |ed%)..".|...,... |
|00001030| 79 25 3c 31 35 20 80 20 | 67 72 69 64 25 28 78 25 |y%<15 . |grid%(x%|
|00001040| 2c 79 25 29 3c 3e 30 0d | 06 36 17 79 25 2b 3d 31 |,y%)<>0.|.6.y%+=1|
|00001050| 3a 73 65 6c 65 63 74 65 | 64 25 2b 3d 31 35 0d 06 |:selecte|d%+=15..|
|00001060| 40 05 ce 0d 06 4a 2f e7 | 20 79 25 3d 31 35 20 8c |@....J/.| y%=15 .|
|00001070| 20 73 65 6c 65 63 74 65 | 64 25 3d 2d 31 20 8b 20 | selecte|d%=-1 . |
|00001080| f2 73 65 6c 65 63 74 28 | 73 65 6c 65 63 74 65 64 |.select(|selected|
|00001090| 25 29 0d 06 54 05 cd 0d | 06 5e 05 e1 0d 06 68 05 |%)..T...|.^....h.|
|000010a0| 3a 0d 06 72 0d dd 20 a4 | 6c 65 74 74 65 72 0d 06 |:..r.. .|letter..|
|000010b0| 7c 14 ea 20 6c 65 74 25 | 2c 63 68 72 25 2c 63 6e ||.. let%|,chr%,cn|
|000010c0| 74 25 0d 06 86 12 e7 20 | c6 8e 62 61 67 25 28 29 |t%..... |..bag%()|
|000010d0| 3e 30 20 8c 0d 06 90 26 | 6c 65 74 25 3d b3 28 c6 |>0 ....&|let%=.(.|
|000010e0| 8e 28 62 61 67 25 28 29 | 29 29 3a e7 20 6c 65 74 |.(bag%()|)):. let|
|000010f0| 25 3d 30 20 6c 65 74 25 | 3d 31 0d 06 9a 17 63 6e |%=0 let%|=1....cn|
|00001100| 74 25 3d 62 61 67 25 28 | 30 29 3a 63 68 72 25 3d |t%=bag%(|0):chr%=|
|00001110| 30 0d 06 a4 10 c8 95 20 | 6c 65 74 25 3e 63 6e 74 |0...... |let%>cnt|
|00001120| 25 0d 06 ae 0b 63 68 72 | 25 2b 3d 31 0d 06 b8 14 |%....chr|%+=1....|
|00001130| 63 6e 74 25 2b 3d 62 61 | 67 25 28 63 68 72 25 29 |cnt%+=ba|g%(chr%)|
|00001140| 0d 06 c2 05 ce 0d 06 cc | 11 62 61 67 25 28 63 68 |........|.bag%(ch|
|00001150| 72 25 29 2d 3d 31 0d 06 | d6 23 e7 20 63 68 72 25 |r%)-=1..|.#. chr%|
|00001160| 3d 32 36 20 8c 20 63 68 | 72 25 3d 31 36 30 20 8b |=26 . ch|r%=160 .|
|00001170| 20 63 68 72 25 2b 3d 39 | 37 0d 06 e0 05 cc 0d 06 | chr%+=9|7.......|
|00001180| ea 0a 63 68 72 25 3d 30 | 0d 06 f4 05 cd 0d 06 fe |..chr%=0|........|
|00001190| 09 3d 63 68 72 25 0d 07 | 08 05 3a 0d 07 12 16 dd |.=chr%..|..:.....|
|000011a0| 20 f2 73 68 6f 77 68 69 | 64 65 28 70 6c 61 79 25 | .showhi|de(play%|
|000011b0| 29 0d 07 1c 17 e7 20 70 | 6c 65 74 73 25 28 70 6c |)..... p|lets%(pl|
|000011c0| 61 79 25 2c 30 29 20 8c | 0d 07 26 11 e3 20 70 69 |ay%,0) .|..&.. pi|
|000011d0| 65 63 25 3d 31 20 b8 20 | 37 0d 07 30 30 24 a4 74 |ec%=1 . |7..00$.t|
|000011e0| 65 78 74 61 64 64 72 28 | 6d 61 69 6e 68 61 6e 64 |extaddr(|mainhand|
|000011f0| 25 2c 31 32 2b 70 69 65 | 63 25 2b 70 6c 61 79 25 |%,12+pie|c%+play%|
|00001200| 2a 38 29 3d 22 65 6d 70 | 22 0d 07 3a 21 f2 72 65 |*8)="emp|"..:!.re|
|00001210| 64 72 61 77 69 63 6f 6e | 28 31 32 2b 70 69 65 63 |drawicon|(12+piec|
|00001220| 25 2b 70 6c 61 79 25 2a | 38 29 0d 07 44 05 ed 0d |%+play%*|8)..D...|
|00001230| 07 4e 2d 24 a4 74 65 78 | 74 61 64 64 72 28 6d 61 |.N-$.tex|taddr(ma|
|00001240| 69 6e 68 61 6e 64 25 2c | 32 30 2b 70 6c 61 79 25 |inhand%,|20+play%|
|00001250| 2a 38 29 3d 22 88 20 53 | 68 6f 77 22 0d 07 58 1b |*8)=". S|how"..X.|
|00001260| f2 72 65 64 72 61 77 69 | 63 6f 6e 28 32 30 2b 70 |.redrawi|con(20+p|
|00001270| 6c 61 79 25 2a 38 29 0d | 07 62 15 70 6c 65 74 73 |lay%*8).|.b.plets|
|00001280| 25 28 70 6c 61 79 25 2c | 30 29 3d a3 0d 07 6c 05 |%(play%,|0)=...l.|
|00001290| cc 0d 07 76 11 e3 20 70 | 69 65 63 25 3d 31 20 b8 |...v.. p|iec%=1 .|
|000012a0| 20 37 0d 07 80 1c c8 8e | 20 70 6c 65 74 73 25 28 | 7......| plets%(|
|000012b0| 70 6c 61 79 25 2c 70 69 | 65 63 25 29 20 ca 0d 07 |play%,pi|ec%) ...|
|000012c0| 8a 08 c9 20 30 3a 0d 07 | 94 34 c9 20 33 32 3a 24 |... 0:..|.4. 32:$|
|000012d0| a4 74 65 78 74 61 64 64 | 72 28 6d 61 69 6e 68 61 |.textadd|r(mainha|
|000012e0| 6e 64 25 2c 31 32 2b 70 | 69 65 63 25 2b 70 6c 61 |nd%,12+p|iec%+pla|
|000012f0| 79 25 2a 38 29 3d bd 31 | 36 30 0d 07 9e 41 7f 20 |y%*8)=.1|60...A. |
|00001300| 24 a4 74 65 78 74 61 64 | 64 72 28 6d 61 69 6e 68 |$.textad|dr(mainh|
|00001310| 61 6e 64 25 2c 31 32 2b | 70 69 65 63 25 2b 70 6c |and%,12+|piec%+pl|
|00001320| 61 79 25 2a 38 29 3d bd | 70 6c 65 74 73 25 28 70 |ay%*8)=.|plets%(p|
|00001330| 6c 61 79 25 2c 70 69 65 | 63 25 29 0d 07 a8 05 cb |lay%,pie|c%).....|
|00001340| 0d 07 b2 21 f2 72 65 64 | 72 61 77 69 63 6f 6e 28 |...!.red|rawicon(|
|00001350| 31 32 2b 70 69 65 63 25 | 2b 70 6c 61 79 25 2a 38 |12+piec%|+play%*8|
|00001360| 29 0d 07 bc 05 ed 0d 07 | c6 2d 24 a4 74 65 78 74 |).......|.-$.text|
|00001370| 61 64 64 72 28 6d 61 69 | 6e 68 61 6e 64 25 2c 32 |addr(mai|nhand%,2|
|00001380| 30 2b 70 6c 61 79 25 2a | 38 29 3d 22 88 20 48 69 |0+play%*|8)=". Hi|
|00001390| 64 65 22 0d 07 d0 1b f2 | 72 65 64 72 61 77 69 63 |de".....|redrawic|
|000013a0| 6f 6e 28 32 30 2b 70 6c | 61 79 25 2a 38 29 0d 07 |on(20+pl|ay%*8)..|
|000013b0| da 15 70 6c 65 74 73 25 | 28 70 6c 61 79 25 2c 30 |..plets%|(play%,0|
|000013c0| 29 3d b9 0d 07 e4 05 cd | 0d 07 ee 05 e1 0d 07 f8 |)=......|........|
|000013d0| 05 3a 0d 08 02 18 dd 20 | f2 70 6c 61 63 65 28 6b |.:..... |.place(k|
|000013e0| 65 79 24 2c 69 63 6f 6e | 25 29 0d 08 0c 36 e7 20 |ey$,icon|%)...6. |
|000013f0| a9 6b 65 79 24 3d 31 20 | 80 20 73 65 6c 65 63 74 |.key$=1 |. select|
|00001400| 65 64 25 3c 3e 2d 31 20 | 80 20 70 6c 61 79 69 6e |ed%<>-1 |. playin|
|00001410| 67 25 20 80 20 6c 65 74 | 74 65 72 25 3c 37 20 8c |g% . let|ter%<7 .|
|00001420| 0d 08 16 21 6b 65 79 25 | 3d 97 6b 65 79 24 3a e7 |...!key%|=.key$:.|
|00001430| 20 6b 65 79 25 3d 33 32 | 20 6b 65 79 25 3d 31 36 | key%=32| key%=16|
|00001440| 30 0d 08 20 22 e7 20 6b | 65 79 25 3e 36 34 20 80 |0.. ". k|ey%>64 .|
|00001450| 20 6b 65 79 25 3c 39 31 | 20 8c 20 6b 65 79 25 2b | key%<91| . key%+|
|00001460| 3d 33 32 0d 08 2a 27 e7 | 20 28 6b 65 79 25 3e 39 |=32..*'.| (key%>9|
|00001470| 36 20 80 20 6b 65 79 25 | 3c 31 32 33 29 20 84 20 |6 . key%|<123) . |
|00001480| 6b 65 79 25 3d 31 36 30 | 20 8c 0d 08 34 0f 65 6e |key%=160| ...4.en|
|00001490| 74 65 72 69 6e 67 25 3d | b9 0d 08 3e 1e f2 70 6f |tering%=|...>..po|
|000014a0| 73 69 74 69 6f 6e 28 73 | 65 6c 65 63 74 65 64 25 |sition(s|elected%|
|000014b0| 2c 78 25 2c 79 25 29 0d | 08 48 3f 21 62 32 25 3d |,x%,y%).|.H?!b2%=|
|000014c0| 6d 61 69 6e 68 61 6e 64 | 25 3a 62 32 25 21 34 3d |mainhand|%:b2%!4=|
|000014d0| 73 65 6c 65 63 74 65 64 | 25 3a 62 32 25 21 38 3d |selected|%:b2%!8=|
|000014e0| 26 42 3c 3c 32 34 3a 62 | 32 25 21 31 32 3d 26 46 |&B<<24:b|2%!12=&F|
|000014f0| 30 30 46 30 30 30 0d 08 | 52 1f c8 99 20 22 57 69 |00F000..|R... "Wi|
|00001500| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00001510| 2c 2c 62 32 25 0d 08 5c | 1e f2 63 68 61 6e 67 65 |,,b2%..\|..change|
|00001520| 6c 65 74 74 65 72 28 78 | 25 2c 79 25 2c bd 6b 65 |letter(x|%,y%,.ke|
|00001530| 79 25 29 0d 08 66 5f 75 | 73 65 64 25 28 6c 65 74 |y%)..f_u|sed%(let|
|00001540| 74 65 72 25 29 3d 69 63 | 6f 6e 25 3a 65 6e 74 72 |ter%)=ic|on%:entr|
|00001550| 79 25 28 6c 65 74 74 65 | 72 25 2c 30 29 3d 78 25 |y%(lette|r%,0)=x%|
|00001560| 3a 65 6e 74 72 79 25 28 | 6c 65 74 74 65 72 25 2c |:entry%(|letter%,|
|00001570| 31 29 3d 79 25 3a 6c 65 | 74 74 65 72 25 2b 3d 31 |1)=y%:le|tter%+=1|
|00001580| 3a 67 72 69 64 25 28 78 | 25 2c 79 25 29 3d 6b 65 |:grid%(x|%,y%)=ke|
|00001590| 79 25 0d 08 70 22 f2 6e | 65 78 74 28 61 63 72 6f |y%..p".n|ext(acro|
|000015a0| 73 73 25 2c 78 25 2c 79 | 25 2c 73 65 6c 65 63 74 |ss%,x%,y|%,select|
|000015b0| 65 64 25 29 0d 08 7a 28 | 70 6c 65 74 73 25 28 74 |ed%)..z(|plets%(t|
|000015c0| 6f 70 6c 61 79 25 2c 69 | 63 6f 6e 25 2d 74 6f 70 |oplay%,i|con%-top|
|000015d0| 6c 61 79 25 2a 38 2d 31 | 32 29 3d 30 0d 08 84 38 |lay%*8-1|2)=0...8|
|000015e0| 24 a4 74 65 78 74 61 64 | 64 72 28 6d 61 69 6e 68 |$.textad|dr(mainh|
|000015f0| 61 6e 64 25 2c 69 63 6f | 6e 25 29 3d 22 65 6d 70 |and%,ico|n%)="emp|
|00001600| 22 3a f2 72 65 64 72 61 | 77 69 63 6f 6e 28 69 63 |":.redra|wicon(ic|
|00001610| 6f 6e 25 29 0d 08 8e 05 | cd 0d 08 98 05 cd 0d 08 |on%)....|........|
|00001620| a2 05 e1 0d 08 ac 05 3a | 0d 08 b6 0d dd 20 f2 64 |.......:|..... .d|
|00001630| 65 6c 65 74 65 0d 08 c0 | 11 e7 20 6c 65 74 74 65 |elete...|.. lette|
|00001640| 72 25 3e 30 20 8c 0d 08 | ca 16 f2 73 65 6c 65 63 |r%>0 ...|...selec|
|00001650| 74 28 73 65 6c 65 63 74 | 65 64 25 29 0d 08 d4 0e |t(select|ed%)....|
|00001660| 6c 65 74 74 65 72 25 2d | 3d 31 0d 08 de 1d e7 20 |letter%-|=1..... |
|00001670| 6c 65 74 74 65 72 25 3d | 30 20 8c 20 65 6e 74 65 |letter%=|0 . ente|
|00001680| 72 69 6e 67 25 3d a3 0d | 08 e8 2d 78 25 3d 65 6e |ring%=..|..-x%=en|
|00001690| 74 72 79 25 28 6c 65 74 | 74 65 72 25 2c 30 29 3a |try%(let|ter%,0):|
|000016a0| 79 25 3d 65 6e 74 72 79 | 25 28 6c 65 74 74 65 72 |y%=entry|%(letter|
|000016b0| 25 2c 31 29 0d 08 f2 2d | 65 6e 74 72 79 25 28 6c |%,1)...-|entry%(l|
|000016c0| 65 74 74 65 72 25 2c 30 | 29 3d 31 36 3a 65 6e 74 |etter%,0|)=16:ent|
|000016d0| 72 79 25 28 6c 65 74 74 | 65 72 25 2c 31 29 3d 31 |ry%(lett|er%,1)=1|
|000016e0| 36 0d 08 fc 54 24 a4 74 | 65 78 74 61 64 64 72 28 |6...T$.t|extaddr(|
|000016f0| 6d 61 69 6e 68 61 6e 64 | 25 2c 75 73 65 64 25 28 |mainhand|%,used%(|
|00001700| 6c 65 74 74 65 72 25 29 | 29 3d bd 28 67 72 69 64 |letter%)|)=.(grid|
|00001710| 25 28 78 25 2c 79 25 29 | 29 3a f2 72 65 64 72 61 |%(x%,y%)|):.redra|
|00001720| 77 69 63 6f 6e 28 75 73 | 65 64 25 28 6c 65 74 74 |wicon(us|ed%(lett|
|00001730| 65 72 25 29 29 0d 09 06 | 3c 70 6c 65 74 73 25 28 |er%))...|<plets%(|
|00001740| 74 6f 70 6c 61 79 25 2c | 75 73 65 64 25 28 6c 65 |toplay%,|used%(le|
|00001750| 74 74 65 72 25 29 2d 74 | 6f 70 6c 61 79 25 2a 38 |tter%)-t|oplay%*8|
|00001760| 2d 31 32 29 3d 67 72 69 | 64 25 28 78 25 2c 79 25 |-12)=gri|d%(x%,y%|
|00001770| 29 0d 09 10 12 67 72 69 | 64 25 28 78 25 2c 79 25 |)....gri|d%(x%,y%|
|00001780| 29 3d 30 0d 09 1a 1c 73 | 65 6c 65 63 74 65 64 25 |)=0....s|elected%|
|00001790| 3d 62 61 73 65 25 2b 78 | 25 2b 79 25 2a 31 35 0d |=base%+x|%+y%*15.|
|000017a0| 09 24 41 21 62 32 25 3d | 6d 61 69 6e 68 61 6e 64 |.$A!b2%=|mainhand|
|000017b0| 25 3a 62 32 25 21 34 3d | 73 65 6c 65 63 74 65 64 |%:b2%!4=|selected|
|000017c0| 25 3a 62 32 25 21 38 3d | 26 41 30 30 33 30 30 30 |%:b2%!8=|&A003000|
|000017d0| 3a 62 32 25 21 31 32 3d | 26 46 30 30 46 30 30 30 |:b2%!12=|&F00F000|
|000017e0| 0d 09 2e 1f c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |...... "|Wimp_Set|
|000017f0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 32 25 0d |IconStat|e",,b2%.|
|00001800| 09 38 1e f2 63 68 61 6e | 67 65 6c 65 74 74 65 72 |.8..chan|geletter|
|00001810| 28 78 25 2c 79 25 2c 22 | 65 6d 70 22 29 0d 09 42 |(x%,y%,"|emp")..B|
|00001820| 05 cd 0d 09 4c 05 e1 0d | 09 56 05 3a 0d 09 60 14 |....L...|.V.:..`.|
|00001830| dd 20 f2 64 6f 6e 65 28 | 61 63 72 6f 73 73 25 29 |. .done(|across%)|
|00001840| 0d 09 6a 11 e7 20 6c 65 | 74 74 65 72 25 3e 30 20 |..j.. le|tter%>0 |
|00001850| 8c 0d 09 74 12 73 63 6f | 72 65 25 3d 30 3a 65 6c |...t.sco|re%=0:el|
|00001860| 25 3d 30 0d 09 7e 11 e7 | 20 6c 65 74 74 65 72 25 |%=0..~..| letter%|
|00001870| 3d 31 20 8c 0d 09 88 0a | c8 8e 20 b9 20 ca 0d 09 |=1 .....|.. . ...|
|00001880| 92 73 c9 20 61 63 72 6f | 73 73 25 20 80 20 65 6e |.s. acro|ss% . en|
|00001890| 74 72 79 25 28 30 2c 30 | 29 3e 30 3a e7 20 67 72 |try%(0,0|)>0:. gr|
|000018a0| 69 64 25 28 65 6e 74 72 | 79 25 28 30 2c 30 29 2d |id%(entr|y%(0,0)-|
|000018b0| 31 2c 65 6e 74 72 79 25 | 28 30 2c 31 29 29 3d 30 |1,entry%|(0,1))=0|
|000018c0| 20 80 20 67 72 69 64 25 | 28 65 6e 74 72 79 25 28 | . grid%|(entry%(|
|000018d0| 30 2c 30 29 2b 31 2c 65 | 6e 74 72 79 25 28 30 2c |0,0)+1,e|ntry%(0,|
|000018e0| 31 29 29 3d 30 20 8c 20 | 61 63 72 6f 73 73 25 3d |1))=0 . |across%=|
|000018f0| a3 0d 09 9c 4e c9 20 61 | 63 72 6f 73 73 25 20 80 |....N. a|cross% .|
|00001900| 20 65 6e 74 72 79 25 28 | 30 2c 30 29 3d 30 3a e7 | entry%(|0,0)=0:.|
|00001910| 20 67 72 69 64 25 28 65 | 6e 74 72 79 25 28 30 2c | grid%(e|ntry%(0,|
|00001920| 30 29 2b 31 2c 65 6e 74 | 72 79 25 28 30 2c 31 29 |0)+1,ent|ry%(0,1)|
|00001930| 29 3d 30 20 8c 20 61 63 | 72 6f 73 73 25 3d a3 0d |)=0 . ac|ross%=..|
|00001940| 09 a6 75 c9 20 ac 20 61 | 63 72 6f 73 73 25 20 80 |..u. . a|cross% .|
|00001950| 20 65 6e 74 72 79 25 28 | 30 2c 31 29 3e 30 3a e7 | entry%(|0,1)>0:.|
|00001960| 20 67 72 69 64 25 28 65 | 6e 74 72 79 25 28 30 2c | grid%(e|ntry%(0,|
|00001970| 30 29 2c 65 6e 74 72 79 | 25 28 30 2c 31 29 2d 31 |0),entry|%(0,1)-1|
|00001980| 29 3d 30 20 80 20 67 72 | 69 64 25 28 65 6e 74 72 |)=0 . gr|id%(entr|
|00001990| 79 25 28 30 2c 30 29 2c | 65 6e 74 72 79 25 28 30 |y%(0,0),|entry%(0|
|000019a0| 2c 31 29 2b 31 29 3d 30 | 20 8c 20 61 63 72 6f 73 |,1)+1)=0| . acros|
|000019b0| 73 25 3d b9 0d 09 b0 50 | c9 20 ac 20 61 63 72 6f |s%=....P|. . acro|
|000019c0| 73 73 25 20 80 20 65 6e | 74 72 79 25 28 30 2c 31 |ss% . en|try%(0,1|
|000019d0| 29 3d 30 3a e7 20 67 72 | 69 64 25 28 65 6e 74 72 |)=0:. gr|id%(entr|
|000019e0| 79 25 28 30 2c 30 29 2c | 65 6e 74 72 79 25 28 30 |y%(0,0),|entry%(0|
|000019f0| 2c 31 29 2b 31 29 3d 30 | 20 8c 20 61 63 72 6f 73 |,1)+1)=0| . acros|
|00001a00| 73 25 3d b9 0d 09 ba 05 | cb 0d 09 c4 05 cd 0d 09 |s%=.....|........|
|00001a10| ce 0c 76 61 6c 69 64 25 | 3d a3 0d 09 d8 2d f2 73 |..valid%|=....-.s|
|00001a20| 63 6f 72 65 28 65 6e 74 | 72 79 25 28 30 2c 30 29 |core(ent|ry%(0,0)|
|00001a30| 2c 65 6e 74 72 79 25 28 | 30 2c 31 29 2c 61 63 72 |,entry%(|0,1),acr|
|00001a40| 6f 73 73 25 2c b9 29 0d | 09 e2 10 e7 20 66 69 72 |oss%,.).|.... fir|
|00001a50| 73 74 67 6f 25 20 8c 0d | 09 ec 77 e7 20 61 63 72 |stgo% ..|..w. acr|
|00001a60| 6f 73 73 25 20 8c 20 76 | 61 6c 69 64 25 3d 28 65 |oss% . v|alid%=(e|
|00001a70| 6e 74 72 79 25 28 30 2c | 31 29 3d 37 29 80 28 65 |ntry%(0,|1)=7).(e|
|00001a80| 6e 74 72 79 25 28 37 2d | 65 6e 74 72 79 25 28 30 |ntry%(7-|entry%(0|
|00001a90| 2c 30 29 2c 30 29 3d 37 | 29 20 8b 20 76 61 6c 69 |,0),0)=7|) . vali|
|00001aa0| 64 25 3d 28 65 6e 74 72 | 79 25 28 30 2c 30 29 3d |d%=(entr|y%(0,0)=|
|00001ab0| 37 29 80 28 65 6e 74 72 | 79 25 28 37 2d 65 6e 74 |7).(entr|y%(7-ent|
|00001ac0| 72 79 25 28 30 2c 31 29 | 2c 31 29 3d 37 29 0d 09 |ry%(0,1)|,1)=7)..|
|00001ad0| f6 05 cd 0d 0a 00 0e e7 | 20 76 61 6c 69 64 25 20 |........| valid% |
|00001ae0| 8c 0d 0a 0a 0e 66 69 72 | 73 74 67 6f 25 3d a3 0d |.....fir|stgo%=..|
|00001af0| 0a 14 1a 70 73 63 72 25 | 28 74 6f 70 6c 61 79 25 |...pscr%|(toplay%|
|00001b00| 29 2b 3d 73 63 6f 72 65 | 25 0d 0a 1e 34 24 a4 74 |)+=score|%...4$.t|
|00001b10| 65 78 74 61 64 64 72 28 | 6d 61 69 6e 68 61 6e 64 |extaddr(|mainhand|
|00001b20| 25 2c 31 34 2b 74 6f 70 | 6c 61 79 25 29 3d c3 70 |%,14+top|lay%)=.p|
|00001b30| 73 63 72 25 28 74 6f 70 | 6c 61 79 25 29 0d 0a 28 |scr%(top|lay%)..(|
|00001b40| 1b f2 72 65 64 72 61 77 | 69 63 6f 6e 28 31 34 2b |..redraw|icon(14+|
|00001b50| 74 6f 70 6c 61 79 25 29 | 0d 0a 32 1a e3 20 63 6c |toplay%)|..2.. cl|
|00001b60| 65 61 72 25 3d 30 20 b8 | 20 6c 65 74 74 65 72 25 |ear%=0 .| letter%|
|00001b70| 2d 31 0d 0a 3c 39 f2 64 | 65 73 65 6c 65 63 74 28 |-1..<9.d|eselect(|
|00001b80| 62 61 73 65 25 2b 65 6e | 74 72 79 25 28 63 6c 65 |base%+en|try%(cle|
|00001b90| 61 72 25 2c 30 29 2b 65 | 6e 74 72 79 25 28 63 6c |ar%,0)+e|ntry%(cl|
|00001ba0| 65 61 72 25 2c 31 29 2a | 31 35 29 0d 0a 46 36 70 |ear%,1)*|15)..F6p|
|00001bb0| 6c 65 74 73 25 28 74 6f | 70 6c 61 79 25 2c 75 73 |lets%(to|play%,us|
|00001bc0| 65 64 25 28 63 6c 65 61 | 72 25 29 2d 74 6f 70 6c |ed%(clea|r%)-topl|
|00001bd0| 61 79 25 2a 38 2d 31 32 | 29 3d a4 6c 65 74 74 65 |ay%*8-12|)=.lette|
|00001be0| 72 0d 0a 50 ae e7 20 70 | 6c 65 74 73 25 28 74 6f |r..P.. p|lets%(to|
|00001bf0| 70 6c 61 79 25 2c 75 73 | 65 64 25 28 63 6c 65 61 |play%,us|ed%(clea|
|00001c00| 72 25 29 2d 74 6f 70 6c | 61 79 25 2a 38 2d 31 32 |r%)-topl|ay%*8-12|
|00001c10| 29 20 8c 20 24 a4 74 65 | 78 74 61 64 64 72 28 6d |) . $.te|xtaddr(m|
|00001c20| 61 69 6e 68 61 6e 64 25 | 2c 75 73 65 64 25 28 63 |ainhand%|,used%(c|
|00001c30| 6c 65 61 72 25 29 29 3d | bd 70 6c 65 74 73 25 28 |lear%))=|.plets%(|
|00001c40| 74 6f 70 6c 61 79 25 2c | 75 73 65 64 25 28 63 6c |toplay%,|used%(cl|
|00001c50| 65 61 72 25 29 2d 74 6f | 70 6c 61 79 25 2a 38 2d |ear%)-to|play%*8-|
|00001c60| 31 32 29 20 8b 20 24 a4 | 74 65 78 74 61 64 64 72 |12) . $.|textaddr|
|00001c70| 28 6d 61 69 6e 68 61 6e | 64 25 2c 75 73 65 64 25 |(mainhan|d%,used%|
|00001c80| 28 63 6c 65 61 72 25 29 | 29 3d 22 65 6d 70 22 0d |(clear%)|)="emp".|
|00001c90| 0a 5a 1e f2 72 65 64 72 | 61 77 69 63 6f 6e 28 75 |.Z..redr|awicon(u|
|00001ca0| 73 65 64 25 28 63 6c 65 | 61 72 25 29 29 0d 0a 64 |sed%(cle|ar%))..d|
|00001cb0| 05 ed 0d 0a 6e 0f f2 6e | 65 78 74 70 6c 61 79 65 |....n..n|extplaye|
|00001cc0| 72 0d 0a 78 05 cc 0d 0a | 82 0c 21 62 32 25 3d 32 |r..x....|..!b2%=2|
|00001cd0| 35 36 0d 0a 8c b0 e7 20 | 66 69 72 73 74 67 6f 25 |56..... |firstgo%|
|00001ce0| 20 8c 20 24 28 62 32 25 | 2b 34 29 3d 22 49 6e 76 | . $(b2%|+4)="Inv|
|00001cf0| 61 6c 69 64 20 6d 6f 76 | 65 20 2d 20 57 6f 72 64 |alid mov|e - Word|
|00001d00| 20 64 6f 65 73 20 6e 6f | 74 20 67 6f 20 74 68 72 | does no|t go thr|
|00001d10| 6f 75 67 68 20 63 65 6e | 74 72 65 20 73 71 75 61 |ough cen|tre squa|
|00001d20| 72 65 2e 20 45 6e 74 65 | 72 20 41 67 61 69 6e 2e |re. Ente|r Again.|
|00001d30| 22 2b bd 30 20 8b 20 24 | 28 62 32 25 2b 34 29 3d |"+.0 . $|(b2%+4)=|
|00001d40| 22 49 6e 76 61 6c 69 64 | 20 6d 6f 76 65 20 2d 20 |"Invalid| move - |
|00001d50| 57 6f 72 64 20 64 6f 65 | 73 20 6e 6f 74 20 74 6f |Word doe|s not to|
|00001d60| 75 63 68 20 61 6e 6f 74 | 68 65 72 20 77 6f 72 64 |uch anot|her word|
|00001d70| 2e 20 45 6e 74 65 72 20 | 41 67 61 69 6e 2e 22 2b |. Enter |Again."+|
|00001d80| bd 30 0d 0a 96 2a c8 99 | 20 22 57 69 6d 70 5f 52 |.0...*..| "Wimp_R|
|00001d90| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 32 25 2c |eportErr|or",b2%,|
|00001da0| 31 2c 22 53 63 72 61 62 | 62 6c 65 22 0d 0a a0 19 |1,"Scrab|ble"....|
|00001db0| e3 20 63 6c 25 3d 31 20 | b8 20 37 3a f2 64 65 6c |. cl%=1 |. 7:.del|
|00001dc0| 65 74 65 3a ed 0d 0a aa | 05 cd 0d 0a b4 11 cc 20 |ete:....|....... |
|00001dd0| f2 6e 65 78 74 70 6c 61 | 79 65 72 0d 0a be 05 cd |.nextpla|yer.....|
|00001de0| 0d 0a c8 05 e1 0d 0a d2 | 05 3a 0d 0a dc 11 dd 20 |........|.:..... |
|00001df0| f2 6e 65 78 74 70 6c 61 | 79 65 72 0d 0a e6 18 f2 |.nextpla|yer.....|
|00001e00| 64 65 73 65 6c 65 63 74 | 28 74 6f 70 6c 61 79 25 |deselect|(toplay%|
|00001e10| 2b 32 29 0d 0a f0 4d 65 | 6e 74 65 72 69 6e 67 25 |+2)...Me|ntering%|
|00001e20| 3d a3 3a 6c 65 74 74 65 | 72 25 3d 30 3a e7 20 73 |=.:lette|r%=0:. s|
|00001e30| 65 6c 65 63 74 65 64 25 | 3c 3e 2d 31 20 8c 20 f2 |elected%|<>-1 . .|
|00001e40| 64 65 73 65 6c 65 63 74 | 28 73 65 6c 65 63 74 65 |deselect|(selecte|
|00001e50| 64 25 29 3a 73 65 6c 65 | 63 74 65 64 25 3d 2d 31 |d%):sele|cted%=-1|
|00001e60| 0d 0a fa 22 74 6f 70 6c | 61 79 25 3d 28 74 6f 70 |..."topl|ay%=(top|
|00001e70| 6c 61 79 25 20 83 20 70 | 6c 61 79 65 72 73 25 29 |lay% . p|layers%)|
|00001e80| 2b 31 0d 0b 04 16 f2 73 | 65 6c 65 63 74 28 74 6f |+1.....s|elect(to|
|00001e90| 70 6c 61 79 25 2b 32 29 | 0d 0b 0e 0f 65 6e 74 72 |play%+2)|....entr|
|00001ea0| 79 25 28 29 3d 31 36 0d | 0b 18 05 e1 0d 0b 22 05 |y%()=16.|......".|
|00001eb0| 3a 0d 0b 2c 26 dd 20 f2 | 73 63 6f 72 65 28 73 74 |:..,&. .|score(st|
|00001ec0| 78 25 2c 73 74 79 25 2c | 61 63 72 6f 73 73 25 2c |x%,sty%,|across%,|
|00001ed0| 66 69 72 73 74 25 29 0d | 0b 36 15 ea 20 77 6d 25 |first%).|.6.. wm%|
|00001ee0| 2c 6c 73 25 2c 6f 6b 25 | 2c 77 73 25 0d 0b 40 0f |,ls%,ok%|,ws%..@.|
|00001ef0| 77 6d 25 3d 31 3a 77 73 | 25 3d 30 0d 0b 4a 17 e7 |wm%=1:ws|%=0..J..|
|00001f00| 20 ac 20 66 69 72 73 74 | 25 20 76 61 6c 69 64 25 | . first|% valid%|
|00001f10| 3d b9 0d 0b 54 0f e7 20 | 61 63 72 6f 73 73 25 20 |=...T.. |across% |
|00001f20| 8c 0d 0b 5e 05 f5 0d 0b | 68 1b e7 20 67 72 69 64 |...^....|h.. grid|
|00001f30| 25 28 73 74 78 25 2c 73 | 74 79 25 29 3c 3e 30 20 |%(stx%,s|ty%)<>0 |
|00001f40| 8c 0d 0b 72 1c e7 20 73 | 74 78 25 3d 30 20 6f 6b |...r.. s|tx%=0 ok|
|00001f50| 25 3d b9 20 8b 20 73 74 | 78 25 2d 3d 31 0d 0b 7c |%=. . st|x%-=1..||
|00001f60| 13 cc 20 6f 6b 25 3d b9 | 3a 73 74 78 25 2b 3d 31 |.. ok%=.|:stx%+=1|
|00001f70| 0d 0b 86 05 cd 0d 0b 90 | 09 fd 20 6f 6b 25 0d 0b |........|.. ok%..|
|00001f80| 9a 05 f5 0d 0b a4 09 6c | 73 25 3d 30 0d 0b ae 3d |.......l|s%=0...=|
|00001f90| e7 20 67 72 69 64 25 28 | 73 74 78 25 2c 73 74 79 |. grid%(|stx%,sty|
|00001fa0| 25 29 3c 3e 31 36 30 20 | 8c 20 6c 73 25 3d 73 63 |%)<>160 |. ls%=sc|
|00001fb0| 6f 72 65 25 28 67 72 69 | 64 25 28 73 74 78 25 2c |ore%(gri|d%(stx%,|
|00001fc0| 73 74 79 25 29 2d 39 37 | 29 0d 0b b8 1a e7 20 65 |sty%)-97|)..... e|
|00001fd0| 6e 74 72 79 25 28 65 6c | 25 2c 30 29 3d 73 74 78 |ntry%(el|%,0)=stx|
|00001fe0| 25 20 8c 0d 0b c2 18 c8 | 8e 20 63 6f 6c 25 28 73 |% ......|. col%(s|
|00001ff0| 74 78 25 2c 73 74 79 25 | 29 20 ca 0d 0b cc 12 c9 |tx%,sty%|) ......|
|00002000| 20 31 35 3a 6c 73 25 3d | 6c 73 25 2a 32 0d 0b d6 | 15:ls%=|ls%*2...|
|00002010| 11 c9 20 38 3a 6c 73 25 | 3d 6c 73 25 2a 33 0d 0b |.. 8:ls%|=ls%*3..|
|00002020| e0 12 c9 20 31 34 3a 77 | 6d 25 3d 77 6d 25 2a 32 |... 14:w|m%=wm%*2|
|00002030| 0d 0b ea 12 c9 20 31 31 | 3a 77 6d 25 3d 77 6d 25 |..... 11|:wm%=wm%|
|00002040| 2a 33 0d 0b f4 05 cb 0d | 0b fe 0e e7 20 66 69 72 |*3......|.... fir|
|00002050| 73 74 25 20 8c 0d 0c 08 | 0e e7 20 73 74 79 25 3d |st% ....|.. sty%=|
|00002060| 30 20 8c 0d 0c 12 33 e7 | 20 67 72 69 64 25 28 73 |0 ....3.| grid%(s|
|00002070| 74 78 25 2c 73 74 79 25 | 2b 31 29 3c 3e 30 20 8c |tx%,sty%|+1)<>0 .|
|00002080| 20 f2 73 63 6f 72 65 28 | 73 74 78 25 2c 73 74 79 | .score(|stx%,sty|
|00002090| 25 2c a3 2c a3 29 0d 0c | 1c 05 cc 0d 0c 26 4b e7 |%,.,.)..|.....&K.|
|000020a0| 20 67 72 69 64 25 28 73 | 74 78 25 2c 73 74 79 25 | grid%(s|tx%,sty%|
|000020b0| 2d 31 29 3c 3e 30 20 84 | 20 67 72 69 64 25 28 73 |-1)<>0 .| grid%(s|
|000020c0| 74 78 25 2c 73 74 79 25 | 2b 31 29 3c 3e 30 20 8c |tx%,sty%|+1)<>0 .|
|000020d0| 20 f2 73 63 6f 72 65 28 | 73 74 78 25 2c 73 74 79 | .score(|stx%,sty|
|000020e0| 25 2c a3 2c a3 29 0d 0c | 30 05 cd 0d 0c 3a 0a 65 |%,.,.)..|0....:.e|
|000020f0| 6c 25 2b 3d 31 0d 0c 44 | 05 cd 0d 0c 4e 0e cc 20 |l%+=1..D|....N.. |
|00002100| 76 61 6c 69 64 25 3d b9 | 0d 0c 58 05 cd 0d 0c 62 |valid%=.|..X....b|
|00002110| 14 77 73 25 2b 3d 6c 73 | 25 3a 73 74 78 25 2b 3d |.ws%+=ls|%:stx%+=|
|00002120| 31 0d 0c 6c 18 fd 20 67 | 72 69 64 25 28 73 74 78 |1..l.. g|rid%(stx|
|00002130| 25 2c 73 74 79 25 29 3d | 30 0d 0c 76 05 cc 0d 0c |%,sty%)=|0..v....|
|00002140| 80 05 f5 0d 0c 8a 1b e7 | 20 67 72 69 64 25 28 73 |........| grid%(s|
|00002150| 74 78 25 2c 73 74 79 25 | 29 3c 3e 30 20 8c 0d 0c |tx%,sty%|)<>0 ...|
|00002160| 94 1c e7 20 73 74 79 25 | 3d 30 20 6f 6b 25 3d b9 |... sty%|=0 ok%=.|
|00002170| 20 8b 20 73 74 79 25 2d | 3d 31 0d 0c 9e 13 cc 20 | . sty%-|=1..... |
|00002180| 6f 6b 25 3d b9 3a 73 74 | 79 25 2b 3d 31 0d 0c a8 |ok%=.:st|y%+=1...|
|00002190| 05 cd 0d 0c b2 09 fd 20 | 6f 6b 25 0d 0c bc 05 f5 |....... |ok%.....|
|000021a0| 0d 0c c6 09 6c 73 25 3d | 30 0d 0c d0 3d e7 20 67 |....ls%=|0...=. g|
|000021b0| 72 69 64 25 28 73 74 78 | 25 2c 73 74 79 25 29 3c |rid%(stx|%,sty%)<|
|000021c0| 3e 31 36 30 20 8c 20 6c | 73 25 3d 73 63 6f 72 65 |>160 . l|s%=score|
|000021d0| 25 28 67 72 69 64 25 28 | 73 74 78 25 2c 73 74 79 |%(grid%(|stx%,sty|
|000021e0| 25 29 2d 39 37 29 0d 0c | da 1a e7 20 65 6e 74 72 |%)-97)..|... entr|
|000021f0| 79 25 28 65 6c 25 2c 31 | 29 3d 73 74 79 25 20 8c |y%(el%,1|)=sty% .|
|00002200| 0d 0c e4 18 c8 8e 20 63 | 6f 6c 25 28 73 74 78 25 |...... c|ol%(stx%|
|00002210| 2c 73 74 79 25 29 20 ca | 0d 0c ee 12 c9 20 31 35 |,sty%) .|..... 15|
|00002220| 3a 6c 73 25 3d 6c 73 25 | 2a 32 0d 0c f8 11 c9 20 |:ls%=ls%|*2..... |
|00002230| 38 3a 6c 73 25 3d 6c 73 | 25 2a 33 0d 0d 02 12 c9 |8:ls%=ls|%*3.....|
|00002240| 20 31 34 3a 77 6d 25 3d | 77 6d 25 2a 32 0d 0d 0c | 14:wm%=|wm%*2...|
|00002250| 12 c9 20 31 31 3a 77 6d | 25 3d 77 6d 25 2a 33 0d |.. 11:wm|%=wm%*3.|
|00002260| 0d 16 05 cb 0d 0d 20 0e | e7 20 66 69 72 73 74 25 |...... .|. first%|
|00002270| 20 8c 0d 0d 2a 0e e7 20 | 73 74 78 25 3d 30 20 8c | ...*.. |stx%=0 .|
|00002280| 0d 0d 34 33 e7 20 67 72 | 69 64 25 28 73 74 78 25 |..43. gr|id%(stx%|
|00002290| 2b 31 2c 73 74 79 25 29 | 3c 3e 30 20 8c 20 f2 73 |+1,sty%)|<>0 . .s|
|000022a0| 63 6f 72 65 28 73 74 78 | 25 2c 73 74 79 25 2c b9 |core(stx|%,sty%,.|
|000022b0| 2c a3 29 0d 0d 3e 05 cc | 0d 0d 48 4b e7 20 67 72 |,.)..>..|..HK. gr|
|000022c0| 69 64 25 28 73 74 78 25 | 2d 31 2c 73 74 79 25 29 |id%(stx%|-1,sty%)|
|000022d0| 3c 3e 30 20 84 20 67 72 | 69 64 25 28 73 74 78 25 |<>0 . gr|id%(stx%|
|000022e0| 2b 31 2c 73 74 79 25 29 | 3c 3e 30 20 8c 20 f2 73 |+1,sty%)|<>0 . .s|
|000022f0| 63 6f 72 65 28 73 74 78 | 25 2c 73 74 79 25 2c b9 |core(stx|%,sty%,.|
|00002300| 2c a3 29 0d 0d 52 05 cd | 0d 0d 5c 0a 65 6c 25 2b |,.)..R..|..\.el%+|
|00002310| 3d 31 0d 0d 66 05 cd 0d | 0d 70 0e cc 20 76 61 6c |=1..f...|.p.. val|
|00002320| 69 64 25 3d b9 0d 0d 7a | 05 cd 0d 0d 84 14 77 73 |id%=...z|......ws|
|00002330| 25 2b 3d 6c 73 25 3a 73 | 74 79 25 2b 3d 31 0d 0d |%+=ls%:s|ty%+=1..|
|00002340| 8e 18 fd 20 67 72 69 64 | 25 28 73 74 78 25 2c 73 |... grid|%(stx%,s|
|00002350| 74 79 25 29 3d 30 0d 0d | 98 05 cd 0d 0d a2 15 73 |ty%)=0..|.......s|
|00002360| 63 6f 72 65 25 2b 3d 28 | 77 73 25 2a 77 6d 25 29 |core%+=(|ws%*wm%)|
|00002370| 0d 0d ac 05 e1 0d 0d b6 | 05 3a 0d 0d c0 0b dd 20 |........|.:..... |
|00002380| f2 69 6e 69 74 0d 0d ca | 13 f4 20 72 61 6e 64 6f |.init...|.. rando|
|00002390| 6d 69 7a 65 20 52 4e 44 | 0d 0d d4 0c 64 25 3d b3 |mize RND|....d%=.|
|000023a0| 28 2d 91 29 0d 0d de 10 | f4 20 64 61 74 61 20 62 |(-.)....|. data b|
|000023b0| 6c 6f 63 6b 0d 0d e8 4e | de 20 62 25 20 31 30 32 |lock...N|. b% 102|
|000023c0| 34 2c 62 32 25 20 31 30 | 32 34 2c 6d 65 6e 75 25 |4,b2% 10|24,menu%|
|000023d0| 20 31 30 30 2c 73 70 72 | 6d 65 6e 25 20 37 36 2c | 100,spr|men% 76,|
|000023e0| 69 62 6d 25 20 37 36 2c | 69 63 6f 6e 69 6e 66 25 |ibm% 76,|iconinf%|
|000023f0| 20 31 32 38 2c 73 70 72 | 6e 61 6d 65 25 20 31 30 | 128,spr|name% 10|
|00002400| 32 34 0d 0d f2 15 f4 20 | 49 6e 69 74 69 61 6c 69 |24..... |Initiali|
|00002410| 73 65 20 57 69 6d 70 0d | 0d fc 38 c8 99 20 22 57 |se Wimp.|..8.. "W|
|00002420| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|00002430| 32 30 30 2c 26 34 42 35 | 33 34 31 35 34 2c 22 53 |200,&4B5|34154,"S|
|00002440| 63 72 61 62 62 6c 65 22 | 20 b8 20 76 65 72 25 0d |crabble"| . ver%.|
|00002450| 0e 06 52 e7 20 76 65 72 | 25 3c 32 30 30 20 85 20 |..R. ver|%<200 . |
|00002460| 30 2c 22 59 6f 75 20 72 | 65 71 75 69 72 65 20 61 |0,"You r|equire a|
|00002470| 20 6c 61 74 74 65 72 20 | 76 65 72 73 69 6f 6e 20 | latter |version |
|00002480| 6f 66 20 74 68 65 20 57 | 69 6d 70 20 74 6f 20 72 |of the W|imp to r|
|00002490| 75 6e 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 2e |un this |program.|
|000024a0| 22 0d 0e 10 13 f4 20 49 | 63 6f 6e 20 42 61 72 20 |"..... I|con Bar |
|000024b0| 69 63 6f 6e 0d 0e 1a 12 | 62 25 21 30 3d 2d 31 3a |icon....|b%!0=-1:|
|000024c0| 62 25 21 34 3d 30 0d 0e | 24 13 62 25 21 38 3d 30 |b%!4=0..|$.b%!8=0|
|000024d0| 3a 62 25 21 31 32 3d 36 | 38 0d 0e 2e 1c 62 25 21 |:b%!12=6|8....b%!|
|000024e0| 31 36 3d 36 38 3a 62 25 | 21 32 30 3d 26 31 37 30 |16=68:b%|!20=&170|
|000024f0| 30 33 30 30 41 0d 0e 38 | 18 24 28 62 25 2b 32 34 |0300A..8|.$(b%+24|
|00002500| 29 3d 22 21 73 63 72 61 | 62 62 6c 65 22 0d 0e 42 |)="!scra|bble"..B|
|00002510| 1c c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |... "Wim|p_Create|
|00002520| 49 63 6f 6e 22 2c 2c 62 | 25 0d 0e 4c 0a 71 75 69 |Icon",,b|%..L.qui|
|00002530| 74 3d a3 0d 0e 56 10 de | 20 74 73 70 72 25 20 34 |t=...V..| tspr% 4|
|00002540| 32 36 34 0d 0e 60 0f 21 | 74 73 70 72 25 3d 34 32 |264..`.!|tspr%=42|
|00002550| 36 34 0d 0e 6a 0d 74 73 | 70 72 25 21 34 3d 30 0d |64..j.ts|pr%!4=0.|
|00002560| 0e 74 0e 74 73 70 72 25 | 21 38 3d 31 36 0d 0e 7e |.t.tspr%|!8=16..~|
|00002570| 0f 74 73 70 72 25 21 31 | 32 3d 31 36 0d 0e 88 85 |.tspr%!1|2=16....|
|00002580| e7 20 eb 3e 31 37 20 80 | 20 eb 3c 32 32 20 8c 20 |. .>17 .| .<22 . |
|00002590| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000025a0| 2c 31 30 2b 32 35 36 2c | 74 73 70 72 25 2c 22 3c |,10+256,|tspr%,"<|
|000025b0| 53 63 72 61 62 62 6c 65 | 24 44 69 72 3e 2e 53 70 |Scrabble|$Dir>.Sp|
|000025c0| 72 69 74 65 73 4d 22 20 | 8b 20 c8 99 20 22 4f 53 |ritesM" |. .. "OS|
|000025d0| 5f 53 70 72 69 74 65 4f | 70 22 2c 31 30 2b 32 35 |_SpriteO|p",10+25|
|000025e0| 36 2c 74 73 70 72 25 2c | 22 3c 53 63 72 61 62 62 |6,tspr%,|"<Scrabb|
|000025f0| 6c 65 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 4e |le$Dir>.|SpritesN|
|00002600| 22 0d 0e 92 12 f2 6c 6f | 61 64 74 65 6d 70 6c 61 |".....lo|adtempla|
|00002610| 74 65 73 0d 0e 9c 5c de | 20 65 6e 74 72 79 25 28 |tes...\.| entry%(|
|00002620| 37 2c 31 29 2c 67 72 69 | 64 25 28 31 35 2c 31 35 |7,1),gri|d%(15,15|
|00002630| 29 2c 63 6f 6c 25 28 31 | 35 2c 31 35 29 2c 70 6c |),col%(1|5,15),pl|
|00002640| 65 74 73 25 28 34 2c 37 | 29 2c 73 63 6f 72 65 25 |ets%(4,7|),score%|
|00002650| 28 32 36 29 2c 62 61 67 | 25 28 32 36 29 2c 75 73 |(26),bag|%(26),us|
|00002660| 65 64 25 28 37 29 2c 70 | 73 63 72 25 28 34 29 0d |ed%(7),p|scr%(4).|
|00002670| 0e a6 0f 65 6e 74 72 79 | 25 28 29 3d 31 36 0d 0e |...entry|%()=16..|
|00002680| b0 28 f4 20 67 72 69 64 | 25 28 78 2c 79 29 20 4c |.(. grid|%(x,y) L|
|00002690| 65 74 74 65 72 20 63 6f | 6c 25 28 78 2c 79 29 20 |etter co|l%(x,y) |
|000026a0| 43 6f 6c 6f 75 72 0d 0e | ba 44 73 63 6f 72 65 25 |Colour..|.Dscore%|
|000026b0| 28 29 3d 31 2c 33 2c 33 | 2c 32 2c 31 2c 34 2c 32 |()=1,3,3|,2,1,4,2|
|000026c0| 2c 34 2c 31 2c 38 2c 35 | 2c 31 2c 33 2c 31 2c 31 |,4,1,8,5|,1,3,1,1|
|000026d0| 2c 33 2c 31 30 2c 31 2c | 31 2c 31 2c 31 2c 34 2c |,3,10,1,|1,1,1,4,|
|000026e0| 34 2c 38 2c 34 2c 31 30 | 2c 30 0d 0e c4 41 62 61 |4,8,4,10|,0...Aba|
|000026f0| 67 25 28 29 3d 39 2c 32 | 2c 32 2c 34 2c 31 32 2c |g%()=9,2|,2,4,12,|
|00002700| 32 2c 33 2c 32 2c 39 2c | 31 2c 31 2c 34 2c 32 2c |2,3,2,9,|1,1,4,2,|
|00002710| 36 2c 38 2c 32 2c 31 2c | 36 2c 34 2c 36 2c 34 2c |6,8,2,1,|6,4,6,4,|
|00002720| 32 2c 32 2c 31 2c 32 2c | 31 2c 32 0d 0e ce 0d 6c |2,2,1,2,|1,2....l|
|00002730| 65 74 74 65 72 25 3d 30 | 0d 0e d8 0d 61 63 72 6f |etter%=0|....acro|
|00002740| 73 73 25 3d b9 0d 0e e2 | 10 73 65 6c 65 63 74 65 |ss%=....|.selecte|
|00002750| 64 25 3d 2d 31 0d 0e ec | 0e 70 6c 61 79 65 72 73 |d%=-1...|.players|
|00002760| 25 3d 34 0d 0e f6 0e 70 | 6c 61 79 69 6e 67 25 3d |%=4....p|laying%=|
|00002770| a3 0d 0f 00 0d 74 6f 70 | 6c 61 79 25 3d 31 0d 0f |.....top|lay%=1..|
|00002780| 0a 0f 65 6e 74 65 72 69 | 6e 67 25 3d a3 0d 0f 14 |..enteri|ng%=....|
|00002790| 12 66 6c 61 67 25 3d 26 | 41 30 31 33 31 33 41 0d |.flag%=&|A01313A.|
|000027a0| 0f 1e 0c 62 61 73 65 25 | 3d 36 36 0d 0f 28 0f e3 |...base%|=66..(..|
|000027b0| 20 79 25 3d 30 20 b8 20 | 31 34 0d 0f 32 0a f3 20 | y%=0 . |14..2.. |
|000027c0| 63 6f 6c 24 0d 0f 3c 0f | e3 20 78 25 3d 30 20 b8 |col$..<.|. x%=0 .|
|000027d0| 20 31 34 0d 0f 46 39 63 | 6f 6c 25 28 78 25 2c 79 | 14..F9c|ol%(x%,y|
|000027e0| 25 29 3d a0 28 22 26 22 | 2b c1 63 6f 6c 24 2c 78 |%)=.("&"|+.col$,x|
|000027f0| 25 2b 31 2c 31 29 29 3a | 63 6f 6c 25 3d 63 6f 6c |%+1,1)):|col%=col|
|00002800| 25 28 78 25 2c 79 25 29 | 3c 3c 32 38 0d 0f 50 5c |%(x%,y%)|<<28..P\|
|00002810| 64 25 3d a4 69 63 6f 6e | 28 6d 61 69 6e 68 61 6e |d%=.icon|(mainhan|
|00002820| 64 25 2c 78 25 2a 34 38 | 2c 2d 79 25 2a 35 32 2d |d%,x%*48|,-y%*52-|
|00002830| 35 32 2c 34 38 2c 35 32 | 2c 63 6f 6c 25 2b 66 6c |52,48,52|,col%+fl|
|00002840| 61 67 25 2c 22 65 6d 70 | 22 2c 73 70 72 6e 61 6d |ag%,"emp|",sprnam|
|00002850| 65 25 2b 34 2a 28 78 25 | 2b 79 25 2a 31 35 29 2c |e%+4*(x%|+y%*15),|
|00002860| 74 73 70 72 25 2c 34 29 | 0d 0f 5a 05 ed 0d 0f 64 |tspr%,4)|..Z....d|
|00002870| 05 ed 0d 0f 6e 15 24 6d | 65 6e 75 25 3d 22 53 63 |....n.$m|enu%="Sc|
|00002880| 72 61 62 62 6c 65 22 0d | 0f 78 2f 6d 65 6e 75 25 |rabble".|.x/menu%|
|00002890| 3f 31 32 3d 37 3a 6d 65 | 6e 75 25 3f 31 33 3d 32 |?12=7:me|nu%?13=2|
|000028a0| 3a 6d 65 6e 75 25 3f 31 | 34 3d 37 3a 6d 65 6e 75 |:menu%?1|4=7:menu|
|000028b0| 25 3f 31 35 3d 30 0d 0f | 82 27 6d 65 6e 75 25 21 |%?15=0..|.'menu%!|
|000028c0| 31 36 3d 31 34 30 3a 6d | 65 6e 75 25 21 32 30 3d |16=140:m|enu%!20=|
|000028d0| 34 34 3a 6d 65 6e 75 25 | 21 32 34 3d 30 0d 0f 8c |44:menu%|!24=0...|
|000028e0| 1a 6d 65 6e 75 25 21 32 | 38 3d 30 3a 6d 65 6e 75 |.menu%!2|8=0:menu|
|000028f0| 25 21 33 32 3d 2d 31 0d | 0f 96 15 6d 65 6e 75 25 |%!32=-1.|...menu%|
|00002900| 21 33 36 3d 26 37 30 30 | 30 30 32 31 0d 0f a0 1a |!36=&700|0021....|
|00002910| 24 28 6d 65 6e 75 25 2b | 34 30 29 3d 22 4e 65 77 |$(menu%+|40)="New|
|00002920| 20 47 61 6d 65 22 0d 0f | aa 1a 6d 65 6e 75 25 21 | Game"..|..menu%!|
|00002930| 35 32 3d 30 3a 6d 65 6e | 75 25 21 35 36 3d 2d 31 |52=0:men|u%!56=-1|
|00002940| 0d 0f b4 15 6d 65 6e 75 | 25 21 36 30 3d 26 37 34 |....menu|%!60=&74|
|00002950| 30 30 30 32 31 0d 0f be | 1a 24 28 6d 65 6e 75 25 |00021...|.$(menu%|
|00002960| 2b 36 34 29 3d 22 45 6e | 64 20 47 61 6d 65 22 0d |+64)="En|d Game".|
|00002970| 0f c8 21 6d 65 6e 75 25 | 21 37 36 3d 26 38 30 3a |..!menu%|!76=&80:|
|00002980| 6d 65 6e 75 25 21 38 30 | 3d 73 70 72 6d 65 6e 25 |menu%!80|=sprmen%|
|00002990| 0d 0f d2 15 6d 65 6e 75 | 25 21 38 34 3d 26 37 30 |....menu|%!84=&70|
|000029a0| 30 30 30 32 31 0d 0f dc | 19 24 28 6d 65 6e 75 25 |00021...|.$(menu%|
|000029b0| 2b 38 38 29 3d 22 53 70 | 72 69 74 65 73 22 0d 0f |+88)="Sp|rites"..|
|000029c0| e6 16 24 73 70 72 6d 65 | 6e 25 3d 22 53 70 72 69 |..$sprme|n%="Spri|
|000029d0| 74 65 73 22 0d 0f f0 37 | 73 70 72 6d 65 6e 25 3f |tes"...7|sprmen%?|
|000029e0| 31 32 3d 37 3a 73 70 72 | 6d 65 6e 25 3f 31 33 3d |12=7:spr|men%?13=|
|000029f0| 32 3a 73 70 72 6d 65 6e | 25 3f 31 34 3d 37 3a 73 |2:sprmen|%?14=7:s|
|00002a00| 70 72 6d 65 6e 25 3f 31 | 35 3d 30 0d 0f fa 2d 73 |prmen%?1|5=0...-s|
|00002a10| 70 72 6d 65 6e 25 21 31 | 36 3d 31 35 36 3a 73 70 |prmen%!1|6=156:sp|
|00002a20| 72 6d 65 6e 25 21 32 30 | 3d 34 34 3a 73 70 72 6d |rmen%!20|=44:sprm|
|00002a30| 65 6e 25 21 32 34 3d 30 | 0d 10 04 25 73 70 72 6d |en%!24=0|...%sprm|
|00002a40| 65 6e 25 21 33 32 3d 2d | 31 3a 73 70 72 6d 65 6e |en%!32=-|1:sprmen|
|00002a50| 25 21 33 36 3d 26 37 30 | 30 30 30 32 31 0d 10 0e |%!36=&70|00021...|
|00002a60| 1a 24 28 73 70 72 6d 65 | 6e 25 2b 34 30 29 3d 22 |.$(sprme|n%+40)="|
|00002a70| 4e 6f 72 6d 61 6c 22 0d | 10 18 25 73 70 72 6d 65 |Normal".|..%sprme|
|00002a80| 6e 25 21 35 36 3d 2d 31 | 3a 73 70 72 6d 65 6e 25 |n%!56=-1|:sprmen%|
|00002a90| 21 36 30 3d 26 37 30 30 | 30 30 32 31 0d 10 22 1d |!60=&700|0021..".|
|00002aa0| 24 28 73 70 72 6d 65 6e | 25 2b 36 34 29 3d 22 4d |$(sprmen|%+64)="M|
|00002ab0| 75 6c 74 69 73 63 61 6e | 22 0d 10 2c 4b e7 20 eb |ultiscan|"..,K. .|
|00002ac0| 3e 31 37 20 80 20 eb 3c | 32 32 20 73 70 72 6d 65 |>17 . .<|22 sprme|
|00002ad0| 6e 25 21 32 38 3d 30 3a | 73 70 72 6d 65 6e 25 21 |n%!28=0:|sprmen%!|
|00002ae0| 35 32 3d 26 38 31 20 8b | 20 73 70 72 6d 65 6e 25 |52=&81 .| sprmen%|
|00002af0| 21 32 38 3d 31 3a 73 70 | 72 6d 65 6e 25 21 35 32 |!28=1:sp|rmen%!52|
|00002b00| 3d 26 38 30 0d 10 36 14 | 24 69 62 6d 25 3d 22 53 |=&80..6.|$ibm%="S|
|00002b10| 63 72 61 62 62 6c 65 22 | 0d 10 40 2b 69 62 6d 25 |crabble"|..@+ibm%|
|00002b20| 3f 31 32 3d 37 3a 69 62 | 6d 25 3f 31 33 3d 32 3a |?12=7:ib|m%?13=2:|
|00002b30| 69 62 6d 25 3f 31 34 3d | 37 3a 69 62 6d 25 3f 31 |ibm%?14=|7:ibm%?1|
|00002b40| 35 3d 30 0d 10 4a 24 69 | 62 6d 25 21 31 36 3d 31 |5=0..J$i|bm%!16=1|
|00002b50| 30 30 3a 69 62 6d 25 21 | 32 30 3d 34 34 3a 69 62 |00:ibm%!|20=44:ib|
|00002b60| 6d 25 21 32 34 3d 30 0d | 10 54 1f 69 62 6d 25 21 |m%!24=0.|.T.ibm%!|
|00002b70| 32 38 3d 30 3a 69 62 6d | 25 21 33 32 3d 69 6e 66 |28=0:ibm|%!32=inf|
|00002b80| 6f 68 61 6e 64 25 0d 10 | 5e 14 69 62 6d 25 21 33 |ohand%..|^.ibm%!3|
|00002b90| 36 3d 26 37 30 30 30 30 | 32 31 0d 10 68 15 24 28 |6=&70000|21..h.$(|
|00002ba0| 69 62 6d 25 2b 34 30 29 | 3d 22 49 6e 66 6f 22 0d |ibm%+40)|="Info".|
|00002bb0| 10 72 1a 69 62 6d 25 21 | 35 32 3d 26 38 30 3a 69 |.r.ibm%!|52=&80:i|
|00002bc0| 62 6d 25 21 35 36 3d 2d | 31 0d 10 7c 14 69 62 6d |bm%!56=-|1..|.ibm|
|00002bd0| 25 21 36 30 3d 26 37 30 | 30 30 30 32 31 0d 10 86 |%!60=&70|00021...|
|00002be0| 15 24 28 69 62 6d 25 2b | 36 34 29 3d 22 51 75 69 |.$(ibm%+|64)="Qui|
|00002bf0| 74 22 0d 10 90 2f f2 73 | 68 61 64 65 28 32 38 29 |t".../.s|hade(28)|
|00002c00| 3a f2 73 68 61 64 65 28 | 33 36 29 3a f2 73 68 61 |:.shade(|36):.sha|
|00002c10| 64 65 28 34 34 29 3a f2 | 73 68 61 64 65 28 35 32 |de(44):.|shade(52|
|00002c20| 29 0d 10 9a 05 e1 0d 10 | a4 05 3a 0d 10 ae 15 dc |).......|..:.....|
|00002c30| 20 42 32 32 46 32 32 32 | 42 32 32 32 46 32 32 42 | B22F222|B222F22B|
|00002c40| 0d 10 b8 15 dc 20 32 45 | 32 32 32 38 32 32 32 38 |..... 2E|22282228|
|00002c50| 32 32 32 45 32 0d 10 c2 | 15 dc 20 32 32 45 32 32 |222E2...|.. 22E22|
|00002c60| 32 46 32 46 32 32 32 45 | 32 32 0d 10 cc 15 dc 20 |2F2F222E|22..... |
|00002c70| 46 32 32 45 32 32 32 46 | 32 32 32 45 32 32 46 0d |F22E222F|222E22F.|
|00002c80| 10 d6 15 dc 20 32 32 32 | 32 45 32 32 32 32 32 45 |.... 222|2E22222E|
|00002c90| 32 32 32 32 0d 10 e0 15 | dc 20 32 38 32 32 32 38 |2222....|. 282228|
|00002ca0| 32 32 32 38 32 32 32 38 | 32 0d 10 ea 15 dc 20 32 |22282228|2..... 2|
|00002cb0| 32 46 32 32 32 46 32 46 | 32 32 32 46 32 32 0d 10 |2F222F2F|222F22..|
|00002cc0| f4 15 dc 20 42 32 32 46 | 32 32 32 45 32 32 32 46 |... B22F|222E222F|
|00002cd0| 32 32 42 0d 10 fe 15 dc | 20 32 32 46 32 32 32 46 |22B.....| 22F222F|
|00002ce0| 32 46 32 32 32 46 32 32 | 0d 11 08 15 dc 20 32 38 |2F222F22|..... 28|
|00002cf0| 32 32 32 38 32 32 32 38 | 32 32 32 38 32 0d 11 12 |22282228|22282...|
|00002d00| 15 dc 20 32 32 32 32 45 | 32 32 32 32 32 45 32 32 |.. 2222E|22222E22|
|00002d10| 32 32 0d 11 1c 15 dc 20 | 46 32 32 45 32 32 32 46 |22..... |F22E222F|
|00002d20| 32 32 32 45 32 32 46 0d | 11 26 15 dc 20 32 32 45 |222E22F.|.&.. 22E|
|00002d30| 32 32 32 46 32 46 32 32 | 32 45 32 32 0d 11 30 15 |222F2F22|2E22..0.|
|00002d40| dc 20 32 45 32 32 32 38 | 32 32 32 38 32 32 32 45 |. 2E2228|2228222E|
|00002d50| 32 0d 11 3a 15 dc 20 42 | 32 32 46 32 32 32 42 32 |2..:.. B|22F222B2|
|00002d60| 32 32 46 32 32 42 0d 11 | 44 05 3a 0d 11 4e 1d f4 |22F22B..|D.:..N..|
|00002d70| 20 2a 2a 2a 20 54 65 6d | 70 6c 61 74 65 20 50 72 | *** Tem|plate Pr|
|00002d80| 6f 63 65 64 75 72 65 73 | 0d 11 58 05 3a 0d 11 62 |ocedures|..X.:..b|
|00002d90| 14 dd 20 f2 6c 6f 61 64 | 74 65 6d 70 6c 61 74 65 |.. .load|template|
|00002da0| 73 0d 11 6c 22 de 20 74 | 65 6d 70 6c 61 74 65 73 |s..l". t|emplates|
|00002db0| 25 20 26 31 30 30 30 2c | 69 6e 64 69 72 25 20 26 |% &1000,|indir% &|
|00002dc0| 38 30 30 0d 11 76 0f 69 | 6e 64 25 3d 69 6e 64 69 |800..v.i|nd%=indi|
|00002dd0| 72 25 0d 11 80 36 c8 99 | 20 22 57 69 6d 70 5f 4f |r%...6..| "Wimp_O|
|00002de0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|00002df0| 53 63 72 61 62 62 6c 65 | 24 44 69 72 3e 2e 54 65 |Scrabble|$Dir>.Te|
|00002e00| 6d 70 6c 61 74 65 73 22 | 0d 11 8a 23 6d 61 69 6e |mplates"|...#main|
|00002e10| 68 61 6e 64 25 3d a4 63 | 72 65 61 74 65 77 69 6e |hand%=.c|reatewin|
|00002e20| 64 6f 77 28 22 6d 61 69 | 6e 22 29 0d 11 94 26 69 |dow("mai|n")...&i|
|00002e30| 6e 66 6f 68 61 6e 64 25 | 3d a4 63 72 65 61 74 65 |nfohand%|=.create|
|00002e40| 77 69 6e 64 6f 77 28 22 | 69 6e 66 6f 62 6f 78 22 |window("|infobox"|
|00002e50| 29 0d 11 9e 1b c8 99 20 | 22 57 69 6d 70 5f 43 6c |)...... |"Wimp_Cl|
|00002e60| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 11 a8 38 |oseTempl|ate"...8|
|00002e70| 24 a4 74 65 78 74 61 64 | 64 72 28 69 6e 66 6f 68 |$.textad|dr(infoh|
|00002e80| 61 6e 64 25 2c 34 29 3d | 22 30 2e 35 30 20 28 32 |and%,4)=|"0.50 (2|
|00002e90| 34 74 68 20 53 65 70 74 | 65 6d 62 65 72 20 31 39 |4th Sept|ember 19|
|00002ea0| 39 31 29 22 0d 11 b2 05 | e1 0d 11 bc 05 3a 0d 11 |91)"....|.....:..|
|00002eb0| c6 1a dd 20 a4 63 72 65 | 61 74 65 77 69 6e 64 6f |... .cre|atewindo|
|00002ec0| 77 28 6e 61 6d 65 24 29 | 0d 11 d0 0b ea 20 68 61 |w(name$)|..... ha|
|00002ed0| 6e 64 25 0d 11 da 4c c8 | 99 20 22 57 69 6d 70 5f |nd%...L.|. "Wimp_|
|00002ee0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 74 |LoadTemp|late",,t|
|00002ef0| 65 6d 70 6c 61 74 65 73 | 25 2c 69 6e 64 25 2c 69 |emplates|%,ind%,i|
|00002f00| 6e 64 69 72 25 2b 26 31 | 46 46 46 2c 2d 31 2c 6e |ndir%+&1|FFF,-1,n|
|00002f10| 61 6d 65 24 2c 30 20 b8 | 20 2c 2c 69 6e 64 25 0d |ame$,0 .| ,,ind%.|
|00002f20| 11 e4 14 e7 20 6e 61 6d | 65 24 3d 22 6d 61 69 6e |.... nam|e$="main|
|00002f30| 22 20 8c 0d 11 ee 17 74 | 65 6d 70 6c 61 74 65 73 |" .....t|emplates|
|00002f40| 25 21 36 34 3d 74 73 70 | 72 25 0d 11 f8 31 e3 20 |%!64=tsp|r%...1. |
|00002f50| 73 70 72 25 3d 37 38 34 | 20 b8 20 39 37 36 20 88 |spr%=784| . 976 .|
|00002f60| 20 33 32 3a 74 65 6d 70 | 6c 61 74 65 73 25 21 73 | 32:temp|lates%!s|
|00002f70| 70 72 25 3d 74 73 70 72 | 25 3a ed 0d 12 02 33 e3 |pr%=tspr|%:....3.|
|00002f80| 20 73 70 72 25 3d 31 30 | 34 30 20 b8 20 31 32 33 | spr%=10|40 . 123|
|00002f90| 32 20 88 20 33 32 3a 74 | 65 6d 70 6c 61 74 65 73 |2 . 32:t|emplates|
|00002fa0| 25 21 73 70 72 25 3d 74 | 73 70 72 25 3a ed 0d 12 |%!spr%=t|spr%:...|
|00002fb0| 0c 33 e3 20 73 70 72 25 | 3d 31 32 39 36 20 b8 20 |.3. spr%|=1296 . |
|00002fc0| 31 34 38 38 20 88 20 33 | 32 3a 74 65 6d 70 6c 61 |1488 . 3|2:templa|
|00002fd0| 74 65 73 25 21 73 70 72 | 25 3d 74 73 70 72 25 3a |tes%!spr|%=tspr%:|
|00002fe0| ed 0d 12 16 33 e3 20 73 | 70 72 25 3d 31 35 35 32 |....3. s|pr%=1552|
|00002ff0| 20 b8 20 31 37 34 34 20 | 88 20 33 32 3a 74 65 6d | . 1744 |. 32:tem|
|00003000| 70 6c 61 74 65 73 25 21 | 73 70 72 25 3d 74 73 70 |plates%!|spr%=tsp|
|00003010| 72 25 3a ed 0d 12 20 05 | cd 0d 12 2a 2e c8 99 20 |r%:... .|...*... |
|00003020| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00003030| 6f 77 22 2c 2c 74 65 6d | 70 6c 61 74 65 73 25 20 |ow",,tem|plates% |
|00003040| b8 20 68 61 6e 64 25 0d | 12 34 0a 3d 68 61 6e 64 |. hand%.|.4.=hand|
|00003050| 25 0d 12 3e 05 3a 0d 12 | 48 14 dd 20 f2 73 65 6c |%..>.:..|H.. .sel|
|00003060| 65 63 74 28 69 63 6f 6e | 25 29 0d 12 52 35 21 62 |ect(icon|%)..R5!b|
|00003070| 32 25 3d 6d 61 69 6e 68 | 61 6e 64 25 3a 62 32 25 |2%=mainh|and%:b2%|
|00003080| 21 34 3d 69 63 6f 6e 25 | 3a 62 32 25 21 38 3d 26 |!4=icon%|:b2%!8=&|
|00003090| 32 30 30 30 30 30 3a 62 | 32 25 21 31 32 3d 30 0d |200000:b|2%!12=0.|
|000030a0| 12 5c 1f c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |.\... "W|imp_SetI|
|000030b0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 32 25 0d 12 |conState|",,b2%..|
|000030c0| 66 05 e1 0d 12 70 05 3a | 0d 12 7a 16 dd 20 f2 64 |f....p.:|..z.. .d|
|000030d0| 65 73 65 6c 65 63 74 28 | 69 63 6f 6e 25 29 0d 12 |eselect(|icon%)..|
|000030e0| 84 35 21 62 32 25 3d 6d | 61 69 6e 68 61 6e 64 25 |.5!b2%=m|ainhand%|
|000030f0| 3a 62 32 25 21 34 3d 69 | 63 6f 6e 25 3a 62 32 25 |:b2%!4=i|con%:b2%|
|00003100| 21 38 3d 30 3a 62 32 25 | 21 31 32 3d 26 32 30 30 |!8=0:b2%|!12=&200|
|00003110| 30 30 30 0d 12 8e 1f c8 | 99 20 22 57 69 6d 70 5f |000.....|. "Wimp_|
|00003120| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|00003130| 32 25 0d 12 98 05 e1 0d | 12 a2 05 3a 0d 12 ac 13 |2%......|...:....|
|00003140| dd 20 f2 73 68 61 64 65 | 28 69 63 6f 6e 25 29 0d |. .shade|(icon%).|
|00003150| 12 b6 3b 21 62 32 25 3d | 6d 61 69 6e 68 61 6e 64 |..;!b2%=|mainhand|
|00003160| 25 3a 62 32 25 21 34 3d | 69 63 6f 6e 25 3a 62 32 |%:b2%!4=|icon%:b2|
|00003170| 25 21 38 3d 26 34 30 30 | 30 30 30 3a 62 32 25 21 |%!8=&400|000:b2%!|
|00003180| 31 32 3d 26 32 30 30 30 | 30 30 0d 12 c0 1f c8 99 |12=&2000|00......|
|00003190| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|000031a0| 61 74 65 22 2c 2c 62 32 | 25 0d 12 ca 05 e1 0d 12 |ate",,b2|%.......|
|000031b0| d4 05 3a 0d 12 de 18 dd | 20 f2 72 65 64 72 61 77 |..:.....| .redraw|
|000031c0| 69 63 6f 6e 28 69 63 6f | 6e 25 29 0d 12 e8 2f 21 |icon(ico|n%).../!|
|000031d0| 62 32 25 3d 6d 61 69 6e | 68 61 6e 64 25 3a 62 32 |b2%=main|hand%:b2|
|000031e0| 25 21 34 3d 69 63 6f 6e | 25 3a 62 32 25 21 38 3d |%!4=icon|%:b2%!8=|
|000031f0| 30 3a 62 32 25 21 31 32 | 3d 30 0d 12 f2 1f c8 99 |0:b2%!12|=0......|
|00003200| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00003210| 61 74 65 22 2c 2c 62 32 | 25 0d 12 fc 05 e1 0d 13 |ate",,b2|%.......|
|00003220| 06 05 3a 0d 13 10 44 dd | 20 a4 69 63 6f 6e 28 21 |..:...D.| .icon(!|
|00003230| 62 25 2c 62 25 21 34 2c | 62 25 21 38 2c 62 25 21 |b%,b%!4,|b%!8,b%!|
|00003240| 31 32 2c 62 25 21 31 36 | 2c 62 25 21 32 30 2c 74 |12,b%!16|,b%!20,t|
|00003250| 65 78 74 24 2c 62 25 21 | 32 34 2c 62 25 21 32 38 |ext$,b%!|24,b%!28|
|00003260| 2c 62 25 21 33 32 29 0d | 13 1a 0b ea 20 69 63 6f |,b%!32).|.... ico|
|00003270| 6e 25 0d 13 24 1b 62 25 | 21 31 32 2b 3d 62 25 21 |n%..$.b%|!12+=b%!|
|00003280| 34 3a 62 25 21 31 36 2b | 3d 62 25 21 38 0d 13 2e |4:b%!16+|=b%!8...|
|00003290| 12 24 28 62 25 21 32 34 | 29 3d 74 65 78 74 24 0d |.$(b%!24|)=text$.|
|000032a0| 13 38 24 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.8$.. "W|imp_Crea|
|000032b0| 74 65 49 63 6f 6e 22 2c | 2c 62 25 20 b8 20 69 63 |teIcon",|,b% . ic|
|000032c0| 6f 6e 25 0d 13 42 0a 3d | 69 63 6f 6e 25 0d 13 4c |on%..B.=|icon%..L|
|000032d0| 05 3a 0d 13 56 16 dd 20 | f2 6f 70 65 6e 6d 65 6e |.:..V.. |.openmen|
|000032e0| 75 28 69 62 61 72 25 29 | 0d 13 60 16 ea 20 6d 65 |u(ibar%)|..`.. me|
|000032f0| 6e 75 5f 79 25 2c 61 64 | 64 72 65 73 73 25 0d 13 |nu_y%,ad|dress%..|
|00003300| 6a 4c e7 20 69 62 61 72 | 25 20 8c 20 6d 65 6e 75 |jL. ibar|% . menu|
|00003310| 5f 79 25 3d 39 36 2b 32 | 2a 34 34 3a 61 64 64 72 |_y%=96+2|*44:addr|
|00003320| 65 73 73 25 3d 69 62 6d | 25 20 8b 20 6d 65 6e 75 |ess%=ibm|% . menu|
|00003330| 5f 79 25 3d 6d 6f 75 73 | 65 79 25 3a 61 64 64 72 |_y%=mous|ey%:addr|
|00003340| 65 73 73 25 3d 6d 65 6e | 75 25 0d 13 74 35 c8 99 |ess%=men|u%..t5..|
|00003350| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00003360| 75 22 2c 2c 61 64 64 72 | 65 73 73 25 2c 6d 6f 75 |u",,addr|ess%,mou|
|00003370| 73 65 78 25 2d 38 30 2c | 6d 65 6e 75 5f 79 25 0d |sex%-80,|menu_y%.|
|00003380| 13 7e 05 e1 0d 13 88 05 | 3a 0d 13 92 10 dd 20 f2 |.~......|:..... .|
|00003390| 77 69 6d 70 65 72 72 6f | 72 0d 13 9c 09 21 62 25 |wimperro|r....!b%|
|000033a0| 3d 9f 0d 13 a6 31 24 28 | 62 25 2b 34 29 3d f6 24 |=....1$(|b%+4)=.$|
|000033b0| 2b 22 20 28 49 6e 74 65 | 72 6e 61 6c 20 65 72 72 |+" (Inte|rnal err|
|000033c0| 6f 72 20 63 6f 64 65 20 | 22 2b c3 9e 2b 22 29 22 |or code |"+..+")"|
|000033d0| 2b bd 30 0d 13 b0 32 c8 | 99 20 22 57 69 6d 70 5f |+.0...2.|. "Wimp_|
|000033e0| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 25 2c |ReportEr|ror",b%,|
|000033f0| 33 2c 22 53 63 72 61 62 | 62 6c 65 22 20 b8 20 2c |3,"Scrab|ble" . ,|
|00003400| 72 65 73 70 25 0d 13 ba | 25 e7 20 72 65 73 70 25 |resp%...|%. resp%|
|00003410| 3d 32 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c |=2 . .. |"Wimp_Cl|
|00003420| 6f 73 65 44 6f 77 6e 22 | 3a e0 0d 13 c4 05 e1 0d |oseDown"|:.......|
|00003430| 13 ce 05 3a 0d 13 d8 1c | dd 20 a4 74 65 78 74 61 |...:....|. .texta|
|00003440| 64 64 72 28 68 61 6e 64 | 25 2c 69 63 6f 6e 25 29 |ddr(hand|%,icon%)|
|00003450| 0d 13 e2 13 21 69 63 6f | 6e 69 6e 66 25 3d 68 61 |....!ico|ninf%=ha|
|00003460| 6e 64 25 0d 13 ec 14 69 | 63 6f 6e 69 6e 66 25 21 |nd%....i|coninf%!|
|00003470| 34 3d 69 63 6f 6e 25 0d | 13 f6 24 c8 99 20 22 57 |4=icon%.|..$.. "W|
|00003480| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00003490| 22 2c 2c 69 63 6f 6e 69 | 6e 66 25 0d 14 00 10 3d |",,iconi|nf%....=|
|000034a0| 69 63 6f 6e 69 6e 66 25 | 21 32 38 0d ff |iconinf%|!28.. |
+--------+-------------------------+-------------------------+--------+--------+
